Microsoft 365 Simuler un double clic avec SendKeys

Usine à gaz · 28 Avril 2022

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

Phil69970 · 30 Avril 2022

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 · 30 Avril 2022

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 · 30 Avril 2022

Bonjour Wayki

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

Phil69970 · 30 Avril 2022

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 · 30 Avril 2022

Bonjour Phil69970

L'Usine à gaz (et fier de l'être) te remercie

Nickel,
lionel

Phil69970 · 30 Avril 2022

Lionel

Usine à gaz à dit:
Nickel,

J'en conclu que la solution te va

@Phil69970

TooFatBoy · 30 Avril 2022

Bonjour,

Usine à gaz à dit:
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 · 30 Avril 2022

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 · 30 Avril 2022

Usine à gaz à dit:
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 · 1 Mai 2022

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 · 1 Mai 2022

dysorthographie à dit:
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 · 1 Mai 2022

Bonjour dysorthographie

Je te remercie,
lionel

dysorthographie · 1 Mai 2022

Marcel32 à dit:
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

Microsoft 365 Simuler un double clic avec SendKeys

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Phil69970

Wayki

XLDnaute Impliqué

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Discussions similaires