Double click VBA

Fermé
duduleray - 29 févr. 2020 à 08:35
 duduleray - 9 mars 2020 à 19:35
Bonjour a tous, forum bonjour,

Configuration: Windows 10 / Edge 18.18362
Excel 2007

Je souhaiterai svp effectuer un Double-Click afin de valider une cellule de la colonne (A) par programme VBA.

En premier lieu je saisi une donnée en colonne (H) que je valide par ENTER

Ensuite je détecte par le code ci-dessous une ou l'autre touche ENTER

Puis je place le curseur en colonne (A) et j'appelle la macro Public Sub DeuClick()

Tout se passe bien le double click en VBA se fait mais ca ne valide vraiment pas comme un vrai double click avec la souris.

Malgré mes recherches, ca fonctionne pas comme voulu.

Merci pour votre aide, une bonne journée a vous.

Cdlt Dudule


Application.OnKey Key:="~", procedure:="DetecteToucheEnter" '* Clavier Enter normal
Application.OnKey Key:="{Enter}", procedure:="DetecteToucheEnter" '* Clavier num?rique


Public Sub DeuClick()
Sheets("Site global").Cells(ActiveCell.Row, "A").Activate
Selection.Application.DoubleClick
End Sub
A voir également:

13 réponses

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
29 févr. 2020 à 09:00
Bonjour,

et j'appelle la macro Public Sub DeuClick()
Comment ?

Selection.Application.DoubleClick

C'est quoi-t-est ce?

Et que voulez vous en faire de ce double click?
1
Salut f894009,

Merci pour la réponse c'est gentil

c'est un code trouver sur le net qui devrai fonctionner mais ce n'ai pas le cas.

Dans la colonne H j'entre un chiffre (quantité exemple 5 pour commande de gommes)
et le curseur est placer automatiquement dans la colonne A pour effectuer un double click afin de valider la dite commande.

Donc c'est pour effectuer un double click par programmation plutôt que d'utiliser le double click de la souris.

Car dans la colonne A j'ai une liste de fournitures et je dois double cliquer dans les cellules pour passer une commande.

Merci pour ton aide,

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > duduleray
Modifié le 29 févr. 2020 à 11:24
Re,

Pouvez mettre un fichier exemple avec des donnees coherantes et votre code car vous parlez de colonnes mais pas de cellules

Pourquoi double click par VBA?
0
duduleray > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
29 févr. 2020 à 12:17
Salut f894009,

Je t'envoi le fichier avec des explications a l'intérieur j'espère que c'est assez comphréensif en tous cas j'ai fait pour le mieux, sinon demande moi pas de soucis.

Merci pour ton aide
lien ci dessous accès au fichier.

https://www.cjoint.com/c/JBDlmjRWxzN

Bon app,
Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > duduleray
29 févr. 2020 à 17:39
Re,

Chez moi le curseur ne se place pas en colonne A de la ligne selectionnee!
Je repete ma question:

Pourquoi un double click par VBA, alors que tout peut se faire sur le Enter de la cellule H
0
Re

Pour te répondre, je n'ai pas penser a faire autrement, le début de ce fichier vient du net et je l'ai adapter a mon besoin.

Donc colonne H pour entrer le nombre a commander et la colonne A sur un double clic valider la commande

Après j'imprime l'onglet "Liste commande" en trois exemplaires que je remets aux gens pour commande.

Mais je voulais automatiser avec un double-click automatique VBA et je n'ai pas trouver mieux a faire

Voila il y a surement mieux a faire mais si tu a une idée au cas ou alors pourquoi pas.

Merci pour ton aide, bonne soirée a toi.

Cdlt Dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
29 févr. 2020 à 18:32
Re,

Ok, je regarde la chose demain
0
Re

Merci ok pour demain, mais il faut que ca reste dans le même esprit de présentation.

l'onglet "Acceuil" qui recevra les données et logo de l'employeur
l'onglet "Site global" pour sélection du matos
l'onglet "Liste commande" pour impression et commande

En fait c'est une liste de filtres qui sont a changés donc remplacer par des neufs qui vont eux en recyclages .

Merci beaucoup une bonne soirée a toi.

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
Modifié le 1 mars 2020 à 18:29
Bonjour,

je valide par ENTER
Du pave numerique.. Pas l'autre

Je cherche pour le moment a faire "marcher" le code que vous avez recupere
0
Bonsoir f894009,

Bien reçu ta réponse, j'ai essayer de valider avec la touche enter du clavier numérique
et ca ne fonctionne toujours pas.

Seul le double click avec la souris fonctionne

Mais ce n'ai pas le but, en espérant que ce soit possible je commence a douter
mais Microsoft le dit alors ???

Donc j'attends de voir si tu peux faire quelque chose

Merci a toi et bonne soirée

Cdlt Dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
1 mars 2020 à 19:11
Re,

Suis sur une piste...
A demain
0
duduleray > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
1 mars 2020 à 19:25
Re ok t'inquiéte pas

bonne soirée a toi et a demain, la nuit porte conseil dit t'on.
je fais des essais pour placer automatiquement le curseur sur la colonne H pour entrer un chiffre
puis de placer le curseur dans la colonne A automatiquement
pour valider automatiquement sur un double click la commande

j'arrive presque mais il y toujours quelque chose qui va pas greuuuu

mais je vois demain aussi bye bye

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > duduleray
3 mars 2020 à 08:41
Bonjour,

Juste un petit detail a regler et ca doit le faire;
0
duduleray > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
3 mars 2020 à 08:49
Bonjour f894009,

T'inquiète pas, bonne continuation et bonne journée.

J'ai fait pleins d'autres essais baser sur certains résultats trouver sur le net
peut ça marche en tout cas, j'ai pas su faire comme il faut.

A plus tard et merci

Cdlt Dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > duduleray
3 mars 2020 à 10:39
Re,
fichier d'origine: y a un truc, sur click droit toute la colonne A de site global perd les cadres rouge ald seulement la ligne selectionnee, normal ou pas?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Re,
le but du clic droit a l'origine est d'effacer une ligne lors d'une erreur de sélection ou erreur tout simplement

Pour les cadres rouges c'est moi qui est rajouter et effectivement, il faut que je revoie ça

c'est juste de la déco et pour faciliter visibilité de la ligne

Merci a toi si autres besoin n'hésite pas

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
Modifié le 3 mars 2020 à 11:25
Re,

Ca y est c'est ok pour moi. Vous regarderez pour les cadres toutes lignes adl ligne select, mais aussi toutes les cellules jusqu'à la fin de colonne A avec cadre rouge ou noir suivant.
A voir aussi les bizzareries qui se produisent si vous cliquer colonne A a partir de la ligne 91
Pour le double click, je n'utilise pas ce qui était code d'origne (WorksheetBefor….).

Fichier modifie: https://mon-partage.fr/f/Dem2kMqb/

A tester pour modifs en cas de bugs ou evolution
0
Re,

Merci pour le retour du fichier,

Les premiers essais sont bons ça a l'air de marcher.

Le fonctionnement que tu a utiliser pour Valider me convient très
c'est ce que voulais faire avec mon double clic, mais le résultat est
le même et me va bien.

Je regarde après déjeuner pour virer les cadres mais au premier abord toutes les colonnes et lignes de l'onglet "Site global" sont cadrillées.

Je crois savoir qu'il y a un code qui permets de tout effacer les cadres de la feuille, tu n'aurais pas ce code svp sous le coude, ça me ferai gagner bien du temps pour faire le ménage LoL

Je regarde également voir si tout est bon niveau fonctionnement après déjeuner, je te tient au courant.

Vu l'heure bonne app a toi encore merci a plus tard

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
3 mars 2020 à 15:36
Re,

Je regarde de plus prêt votre fichier d'origine.
"mon" fichier: c'est le fichier que je vous ai mis a dispo

Feuille Site Global:
_ ligne 1: consideree comme les autres lignes au niveau des différents evenements -> pas corrige dans "mon" fichier
_ a l'ouverture du fichier, selection d'une ligne site global: remplissage quantite, entrer: pas de copie et modif encadrement. Il faut revenir sur la ligne reecrire la quantite, entrer et la ca marche -> corriger dans "mon" fichier
0
Salut ,

Effectivement il y a encore des petites lacunes comme tu l'expliques dans cette dernière réponse.

Par contre moi je n'arrive pas a sélectionner toutes les colonnes ou lignes pour tout effacer les bordures et remettre juste ceux la il y a besoin.

j'ai mis les deux "Cancel" sur =False pour avoir accès au menu contextuel.

malgré ca marche pas, une idée ou du code dans le programme qui me bloque ???

Sinon veux tu que je te laisse finir ce dont tu parles a propos de la ligne 1 et a l'ouverture du fichier

et quand tout sera fini pour toi a ce moment je regarderais ce qu'il me reste a faire

parce que si je fais quelque chose sur le fichier et toi aussi on va pas s'en sortir je dirai un seul a la fois

tu en pense quoi svp ???

moi ca ne me gène pas

Merci pour le boulot que tu a fait

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
3 mars 2020 à 16:02
Re,
a l'ouverture du fichier
C'est deja fait dans le fichier que vous avez

parce que si je fais quelque chose sur le fichier et toi aussi
Tout a fait Thierry. A vous de choisir...
0
duduleray > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
3 mars 2020 à 16:13
Re,
ok je te laisse finir, c'est certainement mieux ainsi et quand c'est bon je verrai ce qu'il me reste a faire.
en attendant je regarde le code que tu a fait.

je vais peut etre comprendre pourquoi je peux accéder au colonnes et lignes.

Merci a toi bonne après midi.

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > duduleray
Modifié le 3 mars 2020 à 16:17
Re,
je regarde le code que tu a fait.
Facile..

ok je te laisse finir
Ok, je regarde la chose
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
4 mars 2020 à 18:28
Bonjour,

Fichier modifie:
_ pour non prise en compte ligne 1
_ pas depasser ligne 90 pour contours cellules
_ test entree numerique cellule H

https://mon-partage.fr/f/oP1fBRL2/
0
duduleray > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
Modifié le 4 mars 2020 à 19:24
Bonsoir f894009,

Merci pour le retour fichier, c'est gentil a toi.
Alors pas tout regarder, juste jeter un cil, mais déjà je peux valider la colonne H
par les deux "Enter" clavier normal et numérique

J'ai remarquer que les cellules H1 et I1 et RAZ s'éfface mais le reset se fait toujours.

La ligne 1 doit être protéger de A1:I1 tout en laissant "RAZ" disponible bien sur.

Je regarde (la chose demain) LoL la soupe est chaude.

Bonne soirée a toi, je te tiens informer et encore merci pour ton aide.

Cdlt dudule
0
Re

Par contre si vous etes interesse, serait judicieux que je reprenne le code de la feuille Site Global pour le rendre plus logique et buvable

Baht si tu peux, je veux bien c'est gentil a toi, prends le temps je ne suis pas pressé

par contre svp commente moi un peu le code que je m'y retrouve plus tard si le besoin s'en ferai ressentir

bon app a toi a plus tard et merci

Cdlt dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
5 mars 2020 à 16:34
Re,
Z'etes preneur du fichier que je modife sans detect touche ou je vous rends le code du dernier fichier, mis a dispo, buvable?
0
duduleray > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
5 mars 2020 à 16:40
Re

bin je veux bien déjà regarder celui que tu a fait sans détect touche puis je te dirai si c'est bon pour moi.

Chaque chose en son temps.

Merci
Cdlt Dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > duduleray
5 mars 2020 à 20:20
Re,
Ok
0
Bonjour f894009,

Merci pour ta réponse,

Passe une bonne journée, j'attends ton retour fichier "sans détection touche"

A plus tard Cdlt dudule
0
Bonjour f894009,

Je viens aux nouvelles alors quand est t'il si tu a des soucis, c'est pas grave, je me contenterai de la dernière version que tu m'a envoyer.

Sinon auquel cas je patiente, merci a toi et bonne après midi.

Bien Cdlt Dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
Modifié le 8 mars 2020 à 17:39
Bonjour,

Tout va bien. Juste une modif de derniere minute

Fichier modifie: https://mon-partage.fr/f/WdRBrDPb/

Fonction selection ligne, effacement: identique a avant
Fonction validation Qte:
_ sur changement de cellule par fleches ou click souris sur autre ligne et touche entrer
_ Dectection de saisie en double d'une ref. Pourrait etre modifiee pour modif Qte sans effacer ligne

A vous de tester. Il y a un module MEvents_true pour remettre les evenement a true sur plantage non prevu.
Je verrouillerai apres vos tests(si modif a faire)
0
Bonsoir f894009,

Merci beaucoup pour le fichier, c'est très bien comme ça, merci

j'ai tester et a part un soucis ou deux je te t'ai fait une capture d'écran j'ai mis un petit commentaire, c'est plus simple.

Sinon le reste me convient très bien

je te souhaite la bonne soirée et vu l'heure un bon app et encore merci pour ton aide.

Cdlt Dudule

https://www.cjoint.com/c/JCispDgycsN
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
9 mars 2020 à 07:04
Bonjour,

J'ai eu une seule fois cette âne au Male. J'avais fais quelques modifications mais je vais revoir la chose
0
Bonjour, f894009,

Merci de bien vouloir regarder ce soucis ensuite ca devrai être bon.

Une bonne journée a toi.

Cdlt Dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708
9 mars 2020 à 09:52
Re,

Devrait etre ok.

https://mon-partage.fr/f/igiDBiPG/

Modifs:
_ Mis un bouton RAZ ald cellule I1, plus simple pour gere la ligne 1 de A a I
_ Effacement (H1:I1): plage dans RAZ qui commençait en A1 ald A2
_ gere les cellules en A numerique ald Chaine pour contrôle doublon
_ Épithète d'autres

A voir si contrôle doublon pourrait servir en modif Qte sans passer par effacement ligne.
0
duduleray > f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024
9 mars 2020 à 11:44
Salut f894009,

Merci beaucoup pour le retour fichier.

Pour moi c'est bon, c'est juste comme souhaiter.

Deux questions svp.

1- ald Chaine, cela veut dire quoi ???
2- Je n'ai pas accès au bouton RAZ, je voudrai changer le nom et sans doute la couleur ???

Ensuite je te laisse a tes occupations, mais merci beaucoup pour tout ce que tu a fait pour moi.

Cdlt Dudule
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 708 > duduleray
9 mars 2020 à 17:56
Re,

1- ald Chaine, cela veut dire quoi ???
Au lieu de Chaine de caracteres

accès au bouton RAZ
Menu Developpeur, Mode Creation, Clic gauche sur le bouton, Clic droit, Proprietes
A la fin, fermer fenetre Propriete et Clic sur Mode Creation
0
Bonsoir,

Merci pour ta réponse, c'est sympa a toi.

Je m'en sors et pour moi c'est bon, je te laisse a tes occupations en te souhaitant une bonne continuation.

Et puis aussi merci pour ta patience, pas facile pour un âne d'avancer sans la carotte devant le nez, toutefois j'ai appris des trucs quand même
sur le VBA et a 68 ans, ça a dû mal en entrer.

Encore merci, pour ton aide et ton savoir partager sur le net.

Bonne soirée a toi, bye bye

Bien cordialement Dudule
0