Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 vba excel

R

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+
Trier par date Trier par votes

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
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Résolu(e)
Microsoft 365 EXCEL liste de choix dans une autre feuille
Réponses
2
Affichages
372
rapcoh
R
M
  • Question
XL 2021 Vba Userform textbox.value
Réponses
3
Affichages
206
MNico1862
M
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
524
13Hubert
B
  • Question
Microsoft 365 Erreur code VBA Excell à partir de la 5ème boucle avec ActiveSheet.Paste
Réponses
1
Affichages
305
Staple1600
D
  • Résolu(e)
Microsoft 365 Copier / coller données spécifiques documents txt vers Excel
Réponses
3
Affichages
426
Staple1600
  • Question
Microsoft 365 Code VBA Recherche par mots clés
2
Réponses
16
Affichages
1 K
job75
E
  • Question
XL 2013 vba excel
Réponses
6
Affichages
250
sylvanu
P
  • Résolu(e)
XL 2019 erreur 1024 ou 438 sur un Vlookup en vba
Réponses
5
Affichages
623
Liliv
L
N
  • Question
XL 2016 Recherche dans une macro pour changer la plage de données où importer
Réponses
5
Affichages
377
vgendron
M
  • Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
121
Maxou69
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…