Additionner la valeur de plusieurs TextBox ?

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

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

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

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

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

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

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

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

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

Bonjour Pierrot,

je n'ai pas revu tous les macro mais j'ai fait quelque modifications au macro CmbModifier_Click et CmbValider_Click

Bonjour, Sab,

C'est de l'excellent travail, merci pour tout

les valeurs de TB sont toujours au format Texte, comment faire les totaux ?

Amitiés

Pierrot

Bonjour Cappe Pierre, bonjour sabV, bonjour le forum,

... Les valeurs de TB sont toujours au format Texte, comment faire les totaux ? ...

Ma participation ... en reprenant de fichier de sabV.

Joseph

P.S. Le fichier a été modifié.

Bonjour, Joseph,

heureux de voir que je ne suis pas le seul retraité en action, 77 ans depuis 4 mois

je ne vois pas de différences dans le fichier, en cas de nouvelle entrée,les valeurs des TextBox sont toujours au format texte

en cas de modification, c'est la même chose. Que faire ?

Merci de ton intervention, je vais finir par mettre des formules dans le tableau et entrer manuellement, la 1ère valeur en colonne H

Amitiés

Pierrot

Bonjour Cappe Pierre, bonjour sabV, bonjour le forum,

Désolé, je m'étais arrêté à la somme dans le Userform.

J'ai modifié mon fichier précédent pour y ajouter les valeurs lors de l'écriture (ce qui est la même macro que la modification) dans la feuille.

À tester si ça convient.

Joseph

P.S. j'en suis à 66.8

Joseph, arrête le pastis, tu as oublié le fichier

Bisous

Pierrot de Belgique

Bonjour Cappe Pierre, bonjour sabV, bonjour le forum,

J'écrivais ...

... J'ai modifié mon fichier précédent pour y ajouter les .....

Qui boit trop là

Joseph

il est ou ton fichier modifié ?

Pierrot, qui ne boit que de l'eau en semaine

Bonjour Cappe Pierre, bonjour sabV, bonjour le forum,

Le fichier que j'ai envoyé précédemment.

Mais là, je vais l'insérer à nouveau

Joseph

Bonjour,

C'est presque parfait

il manque un TExtBox solde à payer non rempli

en mettant en négatif la valeur TBMontantPayé

Le sole affiché est directement inscrit dans le TBSolde à payer

Le TBTotal n'a plus de raison d'être

TBTotal = Val(TBTotal) - Val(TBMontantPayé)

Tu veux bien vérifier, je n'ose pas supprimer le TBTotal

Merci de ta gentillesse et de tes connaissances

Amitiés

Pierrot

Joseph, Mon ami , je t'appelle mon ami, car grâce à tes conseils, j'ai résolu mon problème

J'ai affecté le TextBox Total à la colonne O solde restant à payer , j'ai rajouter un tri à chaque entrée

grâce à ton code "La somme " tout fonctionne parfaitement",

Un tout grand merci pour ton aide et ton soutient

je t'embrasse gentiment

Amitiés

Pierrot

Rechercher des sujets similaires à "additionner valeur textbox"