Comparaison ancienne valeur avec nouvelle valeur cellule

Bonjour tout le monde,

Je me pose une petite question.

Est'il possible de vérifier si la valeur d'une cellule que l'on vient de modifier est différente de la nouvelle valeur que l'on vient de rentrer dans la même cellule. Du style:

if undo <> range("A1") then

Merci beaucoup

Bonjour à tous,

J'aurais dû mieux chercher sur internet. Je viens de trouver un code que j'ai adapté à mes besoins. Il compare l'ancienne valeur avec la nouvelle et propose la modification ou pas.

Bonne journée à tous

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$1" Then Exit Sub

Application.EnableEvents = False

rep = Target.Value

Application.Undo

rep1 = Target.Value

Application.Undo

If rep <> rep1 Then rep2 = MsgBox("La valeur de A1a changé !" & vbLf & "Ancienne valeur : " & rep1 & vbLf & "Nouvelle valeur : " & rep & "Voulez-vous gardez la nouvelle valeur ?", vbYesNo + vbExclamation + vbDefaultButton2, "Notification")

If rep2 = vbYes Then

Range("A1") = rep

Else

Range("A1") = rep1

End If

Application.EnableEvents = True

End Sub