Simuler double clic [OU] Appeler procédure évènementielle

Bonsoir à tous,

Je sèche totalement sur un problème, et mes recherches, aussi bien sur Google que sur ce site, ont été infructueuses.

Voici donc la description dudit problème : J'ai créé une procédure qui s'active au double clic (Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) donc). Dans un module, j'aimerais créer une procédure qui simule le double clic de la souris, afin de lancer cette procédure évènementielle !

Deux solutions à mon problème donc (mais aucune piste n'a aboutie de mon côté...) :

• Appeler la procédure évènementielle depuis le module. Dans ce cas comment faire ? Excel me dit Sub ou fonction non définie
• Simuler un double clic, mais je ne trouve pas la méthode correspondante...

Quelques informations supplémentaires :

• Dans ma procédure évènementielle, j'ai paramétré le Cancel = True afin de ne pas avoir le curseur lors du double clic, juste la sélection de la cellule
• Même en ayant mis "Public Sub", la procédure évènementielle n'est pas trouvée par Excel

Je ne peux hélas pas mettre de fichier exemple, les informations qu'il contient étant "secrètes"...

D'avance merci,

Cédric

Bonjour,

Appeler la procédure évènementielle depuis le module. Dans ce cas comment faire ? Excel me dit Sub ou fonction non définie

C'est normal puisque ce même événement (même nom) peut apparaître dans plusieurs feuilles, il faut donc préciser la feuille ...

Une idée :

Evénement sans "Private" :

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    MsgBox "test"
End Sub

Et dans le module :

Sub appel()
    Sheets("Feuil1").Worksheet_BeforeDoubleClick ActiveCell, True
End Sub

Cordialement,

Rebonjour,

Ça marche nickel, merci !

Cédric