Additionner la valeur de plusieurs TextBox ? Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 5 juillet 2017, 17:30

Bonjour, le forum
je cherche un code qui me permettrait d'ajouter dans un TextBox la valeur de plusieurs TB contenant des valeurs euros
merci d'avance
Pierrot
un exemple de code ferait l'affaire
Pierrot
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 5 juillet 2017, 18:03

Bonjour,
Me.TextBox4 = Cdbl(Me.TextBox1) + Cdbl(Me.TextBox2) = Cdbl(Me.TextBox3)
ou bien
 For i = 10 to 15
    Me.TextBox4 = Me.TextBox4 + Cdbl(Me.Controls("TextBox" & i))
 Next
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 5 juillet 2017, 18:24

Bonjour, merci de vouloir m'aider
aucune de tes deux solutions ne fonctionnent
je te joins mon fichier, un double-clic 1ère ligne pour l'ouvrir
les TextBox en rouge devront recevoir des valeurs
le cumul sera placé dans le Total en bleu
Amicalement
Pierrot
GestionTerrainEgfop.Cp02.xlsm
(60.16 Kio) Téléchargé 37 fois
Pierrot
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 5 juillet 2017, 19:25

bonjour,

à tester,
tb = Array("TBMontantaPayer", "TBFraisOuvertureDossier", "TBAttestVillageoise", "TBDOssierTechnique", "TBFraisACD", "TBNotaireHuissier", "TBMontantPayé", "TBSoldeàPayer")
For i = LBound(tb) To UBound(tb)
If Me.Controls(tb(i)).Value <> "" Then
 n = n + CDbl(Me.Controls(tb(i)).Value)
 Me.Controls("TBTotal") = n
 End If
Next
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 5 juillet 2017, 19:52

Bonsoir,
Je ne sais pas ou coller ce code ?
dans l’initialise peut-être ?
je reçois plein de msg comme variable non déclarée
Tableau manquant
Tu veux bien tester sur le fichier ?
merci d'avance
Amicalement
Pierrot
Pierrot
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 5 juillet 2017, 20:37

Bonjour,

il y a plusieurs événements dans votre projet qui serait pourrait utiliser ce code,
comme ListBox1_Click ou CmbValider_Click, je vous suggere de mettre ce code dans une macro et appelez cette macro dans les différent événement.
Sub Addition_Frais()
Dim tb, i As Integer, n As Double
tb = Array("TBMontantaPayer", "TBFraisOuvertureDossier", "TBAttestVillageoise", "TBDOssierTechnique", "TBFraisACD", "TBNotaireHuissier", "TBMontantPayé", "TBSoldeàPayer")
For i = LBound(tb) To UBound(tb)
If Me.Controls(tb(i)).Value <> "" Then
 n = n + CDbl(Me.Controls(tb(i)).Value)
 Me.Controls("TBTotal") = n
 End If
Next
End Sub
et dans une autre macro,
Call Addition_Frais
aussi j'ai remarqué dans la macro CmbValider_Click la variable L définit la dernière ligne, mais c'est la variable ligne qui est utilisée
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 5 juillet 2017, 21:31

Bonsoir,
une utilisation du mot cle Me invalide dans la macro Addition_Frais()
le total ne s'inscrit pas dans mon TextBox Total
Un grand merci pour ce que tu à fais
bonne soirée

Amicalement
Pierrot
Pierrot
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 5 juillet 2017, 22:43

Bonjour Pierrot,

il faut adapter à votre UserForm,
Sub Addition_Frais()
Dim tb, i As Integer, n As Double
UserForm_Clients.Controls("TBTotal") = 0
tb = Array("TBMontantaPayer", "TBFraisOuvertureDossier", "TBAttestVillageoise", "TBDOssierTechnique", "TBFraisACD", "TBNotaireHuissier", "TBMontantPayé", "TBSoldeàPayer")

For i = LBound(tb) To UBound(tb)
 If UserForm_Clients.Controls(tb(i)).Value <> "" Then
   n = n + CDbl(UserForm_Clients.Controls(tb(i)).Value)
 End If
Next

UserForm_Clients.Controls("TBTotal") = n
End Sub
Pierrot-GestionTerrainEgfop.Cp02.xlsm
(71.72 Kio) Téléchargé 35 fois
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 5 juillet 2017, 23:05

Bonsoir, sabV
Je n'arrive pas à entrer une nouvelle entrée dans le fichier que tu as posté
par contre les nombres sont bien numériques
le code que tu as envoyé, je le mets dans le code de l'UserForm ?
désolé, a 77 ans, j'arrête pour ce soir
Bonne soirée
et amitiés de Belgique
Pierrot
Pierrot
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 6 juillet 2017, 17:36

Bonjour Pierrot,

je n'ai pas revu tous les macro mais j'ai fait quelque modifications au macro CmbModifier_Click et CmbValider_Click
Pierrot-GestionTerrainEgfop.Cp02.xlsm
(80.1 Kio) Téléchargé 39 fois
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message