Microsoft 365 Simuler un double clic avec SendKeys

[Usine à gaz]

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

 

[Wayki]

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 +

 

[Usine à gaz]

Bonjour Wayki
Merci pour la suggestion,
Je ne vois pas trop comment le faire.
Mais j'essaierai,
lionel

 

[Phil69970]

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

 

[Usine à gaz]

Bonjour Phil69970
L'Usine à gaz (et fier de l'être) te remercie
Nickel,
lionel

 

[Phil69970]

Lionel

Nickel,

J'en conclu que la solution te va

@Phil69970

 

[TooFatBoy]

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...

 

[Usine à gaz]

Bonjour mon Marcel32 préféré
ça fait longtemps ...
"Sinon, tu mets le code de Worksheet_BeforeDoubleClick directement dans Worksheet_SelectionChange"
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 ...
lionel

 

[TooFatBoy]

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]

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

 

[TooFatBoy]

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

Oui, mais ça c'est la méthode normale. Pas sûr que ça convienne à UàG...

 

[Usine à gaz]

Bonjour dysorthographie
Je te remercie,
lionel

 

[dysorthographie]

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