XL 2010 Deux événements pour la même cellule

[Magic_Doctor]

Bonsoir,

J'ai une cellule. Quand je clique dessus --> macro événementielle
Je voudrais, pour cette même cellule, déclencher un événement différent du précédent quand on double-clique dessus.
Est-ce possible ?

 

[Usine à gaz]

Bjr Magic_Doctor, Le Forum,

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ton code
end sub

lionel

 

[job75]

Bonsoir Magic_Doctor, Lionel,

Pour que la macro Worksheet_SelectionChange ne s'exécute pas il faut retarder son exécution :

Dim flag As Boolean 'mémorise la variable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now + 2 / 86400, Me.CodeName & ".MaMacro" 'temporisation 2 secondes
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
flag = True
Cancel = True
Target.Interior.Color = vbYellow 'code à adapter
End Sub

Sub MaMacro()
If flag Then flag = False: Exit Sub
MsgBox "Bonsoir Magic_Doctor, Lionel"
End Sub

A+

 

[Magic_Doctor]

Bonsoir job,

Pas pu répondre avant.
Bravo, ça marche très bien.

Je te souhaite une meilleure année 2021