Microsoft 365 Simuler un double clic avec SendKeys

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée :)

Je n'arrive pas à Simuler un double clic avec SendKeys

Dans le fichier joint, le but est de :
- feuille SendKeys en B18 faire un clic qui simule le double clic,
- et renvoie à l'exécution du code "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"

Auriez-vous le bon code ?
Un grand merci par avance.
Je joins mon fichier SendKeys et je continue mes recherches...
lionel :)
 

Pièces jointes

  • SendKeys_liste.xlsm
    25.4 KB · Affichages: 6
Dernière édition:
Solution
Bonjour le fil

Lionel

Je te propose ce fichier (c'est un peu biscornue donc parfait pour toi !!!! 🤣🤣🤣)
Explication :
Des que tu vas dans la cellule B18 tu déclenches l’événement sélection change qui déclenche le module Appel qui appelle l’événement BeforeDoubleClick .....Ouf j'ai fini....;)

*Merci de ton retour

@Phil69970

Wayki

XLDnaute Impliqué
Bonjour,
N'est-ce pas possible de mettre le code dans un module standard, d'associer la macro à un raccourci clavier (par exemple ctrl+G) et d'envoyer le sendkeys "^G" pour activer ?
Bien qu'une procédure call pourrait je pense faire le travail tout pareil 🤷‍♂️
A +
 

Phil69970

XLDnaute Barbatruc
Bonjour le fil

Lionel

Je te propose ce fichier (c'est un peu biscornue donc parfait pour toi !!!! 🤣🤣🤣)
Explication :
Des que tu vas dans la cellule B18 tu déclenches l’événement sélection change qui déclenche le module Appel qui appelle l’événement BeforeDoubleClick .....Ouf j'ai fini....;)

*Merci de ton retour

@Phil69970
 

Pièces jointes

  • simulation double click V1.xlsm
    26.3 KB · Affichages: 5
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Dans le fichier joint, le but est de :
- feuille SendKeys en B18 faire un clic qui simule le double clic,
- et renvoie à l'exécution du code "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
Sinon, tu mets le code de Worksheet_BeforeDoubleClick directement dans Worksheet_SelectionChange mais c'est vrai que du coup c'est un peu trop simple... 🙄
 
Dernière édition:

TooFatBoy

XLDnaute Barbatruc
Je ne suis pas contre les choses simples lol
Mais je ne jamais pensé à faire ça.
Je ne sais pas si je saurai le faire ... vais tenter ...
Ce que je disais, c'est : si tu n'as plus besoin du double clic, tu mets le code du double clic dans SelectionChange.

En revanche, si tu as toujours besoin du BeforeDoubleClick, tu peux simplement faire appel à BeforeDoubleClick plutôt que de recopier son code dans SelectionChange comme l'a parfaitement décrit @Phil69970 en #4.
 

dysorthographie

XLDnaute Impliqué
Bonsoir,
Tu mets le contenu de Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"

Dans un module standard
Sub DoubleClick(ByVal Target As Range)
Et tu appelles cette sub de n'importe où y compris de Worksheet_BeforeDoubleClick
 

dysorthographie

XLDnaute Impliqué
Ce que je disais, c'est : si tu n'as plus besoin du double clic, tu mets le code du double clic dans SelectionChange.

En revanche, si tu as toujours besoin du BeforeDoubleClick, tu peux simplement faire appel à BeforeDoubleClick plutôt que de recopier son code dans SelectionChange comme l'a parfaitement décrit @Phil69970 en #4.
Je ne comprends pas
En lieu et place de son SendKeys, il écrit
DoubleClick [B18]

Et dans Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Il écrit DoubleClick Target
 

Discussions similaires

Réponses
9
Affichages
201
Réponses
4
Affichages
202