Bonjour Hurricane,
Comme le téléchargement n'es pas conseillé pour l'instant, voici quelque exemple, click droit, click gauche, double clic, sur cellule unique et sur plage de cellule(voir dernier exemple)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then Exit Sub ' double clic sur A1 execute la macro
MsgBox "Double click"
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$C$1" Then Exit Sub ' click droit sur C1 execute la macro
Cancel = True ' pour désactivé le menu click droit
MsgBox "Click Droit"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$E$1" Then Exit Sub ' click gauche sur E1 execute la marcro
MsgBox "Click Gauche"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G1:G10")) Is Nothing Then 'plage de cellule
MsgBox "Click Gauche pour une plage de cellule"
End If
End Sub
' tu peux aussi comme dans le derniere exemple execute les autres exemple avec une
' plage de cellule
Voila
Bonne journée
@Christophe@