myValue public, mAddress comme corde
Worksheet_Change secondaire privé (cible de ByVal comme gamme)
Si MsgBox (« clic oui à retourner à la valeur originale », au vbYesNo) = vbYes alors
Si Target.Address = puis mAddress
Application.EnableEvents = faux
Target.Value = myValue
Application.EnableEvents = rectifient
Finir si
Finir si
Finir le sous-marin
Worksheet_SelectionChange secondaire privé (cible de ByVal comme gamme)
mAddress = Target.Address
myValue = Target.Value
Sous-marin d'extrémité