Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('A1')) Is Nothing Then
MsgBox 'Bonjour, je suis la cellule ' & Target.Address & 'nous sommes le' & Date
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('A1')) Is Nothing Then
MsgBox 'Bonjour, je suis la cellule ' & Target.Address & 'nous sommes le' & Date
End If
End Sub
Pour le cas de la détection du changement sur une seule cellule, l'Intersect méthode est un peu disproportionnée Eric
On peut simplement faire ceci
PrivateSub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = 'A1' Then
MsgBox 'Bonjour, je suis la cellule ' & Target.Address(False, False) & ' nous sommes le ' & Date EndIf EndSub
NB le Target.Address(False, False) est pour avoir l'adresse cellule sans la valeur Absolue '$', sinon par défaut il faudrait écrire :
PrivateSub Worksheet_Change(ByVal Target As Range) If Target.Address = '$A$1' Then
MsgBox 'Bonjour, je suis la cellule ' & Target.Address & ' nous sommes le ' & Date EndIf EndSub
Pour la méthode Intersect, c'est plutôt, par exemple si on cherche à détecter tout changement de cellule sur une plage (Ici toute la Colonne 'A')
PrivateSub Worksheet_Change(ByVal Target As Range) IfNot Intersect(Target, Range('A:A')) IsNothingThen
MsgBox 'Bonjour, je suis la cellule ' & Target.Address & ' nous sommes le ' & Date EndIf EndSub
bonjour,
dsl je resortir ce post ^^
qui doit très bien marcher mais je crois qu'il ne fonctionne pas lorsque les cellules qui changes sont issues d'un TCD?et comme j'essyae de faire pour qu'une macro se déclenche suite à la selection d'une liste box d'un TCD ....
merci