boite de dialogue

[tribalspidal]

salut

j'ai un petit probleme
j'ai deux cellules a1 et b1
quand elles sont differentes
je veux afficher une boite de dialogue qui indique que les valeurs doivent etre identique
le code qui se trouve en dessous marche mais je voudrais afficher la boite de dialogue qu"une seule fois car le message apparait a chaque fois que je selectionnes une cellule
je voudrais mettre qu'un avertissement

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") <> Range("b1") Then
MsgBox "Les valeurs doivent etre identique"
End If
End Sub

 

[Robert]

Re : boite de dialogue

Bonjour Tribalspidal, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "" Or Range("B1") = "" Then Exit Sub
If Range("a1") <> Range("b1") Then MsgBox "Les valeurs doivent etre identique"
End Sub

 

[tribalspidal]

Re : boite de dialogue

merci pour ton aide ca marche impec