Bonjour.
Essayer ce code que j'ai trouvé déjà sur le net. Je l'ai testé et ça marche bien.
Dans le module de la feuille
Public ValPrec
Private Sub Worksheet_Calculate()
Vérif
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Vérif
End Sub
Private Sub Vérif()
If VarType(Range("A1")) = VarType(ValPrec) Then _
If ValPrec = Range("A1") Then Exit Sub
MsgBox "Cellule A1 passe de " & CStr(ValPrec) & _
" vers " & CStr(Range("A1"))
ValPrec = Range("A1")
End Sub
' Dans le module de code ThisWorkbook :
Dans le module du classeur
Private Sub Workbook_Open()
Feuil1.ValPrec = Feuil1.Range("A1")
End Sub
Bonne réception.