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

  • Question
XL 2021 Créer une requête SQL pour lire plusieurs Ranges?
2
Réponses
26
Affichages
950
dysorthographie
C
  • Question
Microsoft 365 Intégrer une image au milieu d'un mail créé via Excel VBA
Réponses
14
Affichages
377
patricktoulon
R
  • Résolu(e)
XL 2019 détection de dates sur la base de 2 tableaux
Réponses
2
Affichages
461
rh.finances
R
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
170
Etoto
R
  • Résolu(e)
Microsoft 365 EXCEL liste de choix dans une autre feuille
Réponses
2
Affichages
509
rapcoh
R
M
  • Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
323
Gégé-45550
M
  • Question
XL 2021 Vba Userform textbox.value
Réponses
3
Affichages
351
MNico1862
M
N
  • Question
Microsoft 365 Création de tables, relations et mise en forme
Réponses
2
Affichages
428
job75
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
783
13Hubert
B
  • Question
Microsoft 365 Erreur code VBA Excell à partir de la 5ème boucle avec ActiveSheet.Paste
Réponses
1
Affichages
430
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…