XL 2013 vba excel

[Romaricbienvenu]

bonjour cher membre,
j'ai un fichier excel avec une macro qui me permet de faire des additions sur 2 feuilles distinctes (feuil1 et feuil2) : textbox1 renvois sa valeur a ("A1") et textbox2 à ("A2") et l'addition ("A1"+"A2")= ("B2") et sur la feuille 2 on a (A1")+feuil1!B2= ("B3 "), j'aimerai que lorsque ("B2") de feuil1 et "B3" de feuil2 change cela m'affiche une image sur mon userform pour me signifier qu'il y a eu un changement soit dans l'une ou des 2 cellules.

j'ai joins un fichier
merci

 

[job75]

Bonjour Romaricbienvenu,

Voyez le fichier joint et le code de l'UserForm :

Dim v1$, v2$ 'mémorise les variables

Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A1") = TextBox1.Value
Sheets("Feuil1").Range("A2") = TextBox2.Value
If CStr(Sheets("Feuil1").[B2]) <> v1 Or CStr(Sheets("Feuil2").[B3]) <> v2 Then Image1.Visible = True
End Sub

Private Sub UserForm_Initialize()
Image1.Visible = False
v1 = CStr(Sheets("Feuil1").[B2])
v2 = CStr(Sheets("Feuil2").[B3])
End Sub

J'utilise CStr et des variables String pour le cas où il y aurait des valeurs d'erreur.

A+

 

[Romaricbienvenu]

XLDnaute Barbatruc merci bcoup cela marche impeccable merci ​