Informatique Pratique

Bonjour,
Je voudrais faire une macro qui fonctionne comme ci-dessous:
Quand je clic sur un bouton "faire simulation" je remplace la valeur X de la case A1 par la valeur Y de la case B1.Quand je clic sur un bouton "annuler simulation" je récupère valeur X de la case A1.
Merci d'avance
Stéphane

slt,
j'espère que à§a te conviendra :

Dans un module :

Public machin As Variant 'permet à  toutes les macros d'utiliser cette variable

Sub inversion() ' macro pour faire l'échange
Dim truc
machin = Range("A1").Value
truc = Range("B1").Value
Range("A1").Value = truc
End Sub

Sub annule_inversion() 'macro pour remettre en place
Range("A1").Value = machin
End Sub

><>

Merci beaucoup
Ca marche du tonnerre
Stéphane