Addition de texbox

Résolu/Fermé

Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - Modifié par crapoulou le 12/11/2016 à 18:01
Utilisateur anonyme - 12 nov. 2016 à 22:41

Bonjour,

Je cherche à additionner 4 textbox et mettre le résultat dans une 5eme textbox.

Textbox31=   Textbox13 + Textbox14 + Textbox15 + Textbox16.

Toutes les textbox peuvent ne pas être remplies en même temps, je joint un bout de code pour faciliter peut être la compréhension.

Private Sub TextBox5_Change()

If IsNumeric(Me.TextBox17) And IsNumeric(Me.TextBox4) And IsNumeric(Replace(Me.TextBox5, ".", ",")) Then
      Me.TextBox13 = Format(CDbl(Me.TextBox4) / CDbl(Replace(Me.TextBox5, ".", ",")) * CDbl(Me.TextBox17), "0.00") + "m3"
Else
     Me.TextBox13 = "?"
End If
End Sub

Private Sub TextBox7_Change()

If IsNumeric(Me.TextBox17) And IsNumeric(Me.TextBox6) And IsNumeric(Replace(Me.TextBox7, ".", ",")) Then
      Me.TextBox14 = Format(CDbl(Me.TextBox6) / CDbl(Replace(Me.TextBox7, ".", ",")) * CDbl(Me.TextBox17), "0.00") + "m3"
Else
     Me.TextBox14 = "?"
End If
End Sub

Private Sub TextBox9_Change()

If IsNumeric(Me.TextBox17) And IsNumeric(Me.TextBox8) And IsNumeric(Replace(Me.TextBox9, ".", ",")) Then
      Me.TextBox15 = Format(CDbl(Me.TextBox8) / CDbl(Replace(Me.TextBox9, ".", ",")) * CDbl(Me.TextBox17), "0.00") + "m3"
Else
     Me.TextBox15 = "?"
End If
End Sub

Private Sub TextBox12_Change()

If IsNumeric(Me.TextBox17) And IsNumeric(Me.TextBox11) And IsNumeric(Replace(Me.TextBox12, ".", ",")) Then
      Me.TextBox16 = Format(CDbl(Me.TextBox11) / CDbl(Replace(Me.TextBox12, ".", ",")) * CDbl(Me.TextBox17), "0.00") + "m3"
Else
     Me.TextBox16 = "?"
End If
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

A voir également:

Addition de texbox
Formule addition excel - Guide
Addition et soustraction dans la même formule excel - Forum Excel
Bash addition ✓ - Forum Shell
[Bash]Impossible de faire une simple addition - Forum Shell
Addition et soustraction d'une même colonne ✓ - Forum Excel

2 réponses

Réponse 1 / 2

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
Modifié par tyranausor le 12/11/2016 à 22:36

Bonjour, et si tu mets

Textbox31 = Textbox13.value + Textbox14.value + Textbox15.value + Textbox16.value

ça te donnes quoi?

Les forumeurs ne sont pas des devins, en tout cas, moi non!

Réponse 2 / 2

Utilisateur anonyme
12 nov. 2016 à 22:41

Bonjour Bourrique66,

Une textbox contient une chaîne de caractères, donc essayes :

  Textbox31 = Str$(Val(Textbox13) + Val(Textbox14) + Val(Textbox15) + Val(Textbox16))

Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement. 😊

Discussions similaires

[shell] Comment additionner des valeurs

Soustraire et additioner dans une même formule

addition de pourcentage

Formules de calcul

Addition en hexadécimal

Discussions similaires

Newsletters