Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
MsgBox "Modif en colonne C"
ElseIf Not Intersect(Target, Range("J:J")) Is Nothing Then
MsgBox "Modif en colonne J"
End If
End Sub
Une modif peut porter sur les 2 colonnes C et J (sélection multiple) donc utiliser :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C:C,J:J]) Is Nothing Then
MsgBox "Modif en colonnes C ou J"
End If
End Sub
ou si l'on veut étudier chaque colonne séparément :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C:C]) Is Nothing Then
MsgBox "Modif en colonne C"
End If
If Not Intersect(Target, [J:J]) Is Nothing Then
MsgBox "Modif en colonne J"
End If
End Sub