Bonsoir sunguess et Didier,
Une variante :
A coller également dans le module de feuille.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A1:B1')) Is Nothing Then
If ActiveCell = Range('A1') Then
MsgBox 'COUCOU'
End If
If ActiveCell = Range('B1') Then
MsgBox 'AU REVOIR'
End If
End If
End Sub
Cordialement
Bernard
Message édité par: CBernardT, à: 25/11/2005 21:09