Double click VBA
duduleray
-
duduleray -
duduleray -
Bonjour a tous, forum bonjour,
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
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
13 réponses
Résumé de la discussion
Double-clique via VBA pour valider une cellule de la colonne A après saisie en colonne H et validation par ENTER, puis appel d'une macro dédiée.
Plusieurs participants suggèrent d'appeler une macro via OnKey et d'utiliser Selection.Application.DoubleClick, mais la saisie du clavier et le comportement du double-clique ne reproduisent pas exactement l'effet escompté avec la souris.
Des échanges demandent des précisions sur le flux, proposent d'exemples de fichier et évoquent des ajustements comme le positionnement du curseur, les boutons ou les protections d'Excel 2007.
En pratique, les configurations et les versions (Windows 10, Edge 18.18362, Excel 2007) compliquent l'exécution, et les contributeurs évoquent des modifications progressives, des tests supplémentaires ou un réemploi du code existant.
-
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?-
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
-
-
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 -
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 -
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-
Re,
Suis sur une piste...
A demain- 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
-
-
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-
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
-
-
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-
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
-
-
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-
-
-
-
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/ -
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
-
-
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 -
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 -
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-
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)
-
-
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 -
Bonjour, f894009,
Merci de bien vouloir regarder ce soucis ensuite ca devrai être bon.
Une bonne journée a toi.
Cdlt Dudule-
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.- 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
-
-
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
