égalite de deux cellule

Bonsoir Titi, le Forum

Une petite évènementielle dans le Private Module de La Feuille en Question :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A64, B3")) Is Nothing Then
If Range("B3") = Range("A64") Then MsgBox "Bingo"
End If
End Sub

Ici je capte l'évènement "Change" si ce sont des Formules qui "travaillent" sur les Cellules alors essaie avec l'évènement Calculate :

Private Sub Worksheet_Calculate()
If Range("B3") = Range("A64") Then MsgBox "Bingo"
End Sub
Mais attention, il faudrait peut-être capter un moment précis (emplacement de cellule active ou autre) car sinon tu risques d'avoir le message souvent !!

Bonne Soirée
@+Thierry

Bonjour Thierry et le forum
Merci ça fonctionne trés bien, mais je n'avais aucun doute au vue de tes connaissances sur excel
A bientôt
Titi