Bonjour gscv,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cible As Range
Set Cible = Intersect(Target, Range('a1'))
If Not Cible Is Nothing Then
MsgBox 'Tindiiiinn !'
End If
End Sub
Fonctionne dès que la valeur de 'A1' est changée.
En espérant que cela te dépanne.
Abel.
Edition :
J'ai été incomplet : code à placer dans une feuille pour qu'il ne fonctionne que dans une feuille voulue.
Sinon, à placer dans Thisworkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cible As Range
Set Cible = Intersect(Target, Range('a1'))
If Not Cible Is Nothing Then
MsgBox 'Tindiiiinn !'
End If
End Sub
Fonctionnera en 'A1' de toutes les feuilles.
Message édité par: Abel, à: 12/09/2005 14:20