Bonsoir Nicolas, le Forum
Bien tout simplement :
If Not Range("A1") = Range("B2") Then
MsgBox "Différence"
End If
Maintenant reste à savoir comment veux-tu déclencher ce genre de macro ?
Un exemple avec l'évènement " Worksheet_Change" à mettre dans le Private Module de la Feuille en Question...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1", "B2")) Is Nothing Then Exit Sub
If Range("A1") <> "" And Range("B2") <> "" Then
If Not Range("A1") = Range("B2") Then MsgBox "Différence"
End If
End Sub
Bonne Soirée
@+Thierry