Addition de texbox

Résolu

Bourrique66 Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
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
Addition excel - Guide
Bash addition - Forum Programmation
Addition hectare are centiare excel - Forum Excel
Addition et soustraction dans la même formule excel - Forum Excel
Excel convertir en hectare ! - Forum Excel

2 réponses

Réponse 1 / 2

tyranausor Messages postés 3545 Date d'inscription Statut Membre Dernière intervention 2 039

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

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

Addition en bash

[bash]Impossible de faire une simple addition

[shell] Comment additionner des valeurs

additionner deux réels en shell

Soustraire et additioner dans une même formule

Votre réponse

Discussions similaires