XL 2013 vba excel

Romaricbienvenu

XLDnaute Nouveau
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
 

Pièces jointes

  • text.xlsm
    19.9 KB · Affichages: 3
Solution
Bonjour Romaricbienvenu,

Voyez le fichier joint et le code de l'UserForm :
VB:
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+

job75

XLDnaute Barbatruc
Bonjour Romaricbienvenu,

Voyez le fichier joint et le code de l'UserForm :
VB:
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+
 

Pièces jointes

  • text(1).xlsm
    24.3 KB · Affichages: 2

Discussions similaires

Réponses
16
Affichages
983
Réponses
6
Affichages
202
Réponses
2
Affichages
99

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll