msgbox si 2 cellules ne sont pas egal

[Nicolas pr]

bonsoire amis(es) du forum XLD

je cherche comment faire une msgbox qui ce lancerait si par exemple
A1 est different de B2

merci pour vos reponces

Nicolas Pr

 

[@+Thierry]

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

 

[Nicolas pr]

oui c parfaitement ce que je voulais

je lai mis sur la feuille concerné en worksheet

Merci Thierry pour ton aide