addition de 3 chiffres

Question

dans un formulaire, je doit calculer la valeur de 3 textbox dans une textbox.
ce sont des chiffres.
lorsque je n'ai que deux valeurs pas de problemes, mais dès que j'ai 3 valeurs il fait une concaténation.
mon code est le suivant
Dim MyNumber, Var1, Var2, Var3 As Long
Var1 = Text1.Text
Var2 = Text2.Text
Var3= Text3.text
MyNumber = Var1 + Var2 + Var3
Text4.Text = MyNumber
Ma question est la suivante, comment faire une addition de ces trois valeurs.
merci de votre réponse

Renaud · Answer

Dim Var1, Var2, Var3 As Long
Var1 = CLng(Val(Text1.Text))
Var2 = CLng(Val(Text2.Text))
Var3= CLng(Val(Text3.text))
Text4.Text =  = Var1 + Var2 + Var3

Amitiés -Renaud -

Vincentsoft · Answer

Salut,
J'ai vu la réponse de Renaud et je la trouve très astucieuse, cependant, j'ai aussi une autre méthode à te proposer qui ressemble à la sienne:

Dim ReS As Double, V1 As Double, V2 As Double, V3 As Double
V1 = Text1.Text
V2 = Text2.Text
V3 = Text3.Text
ReS = V1 + V2 + V3
text4.Text = ReS

Vincentsoft

Marc · Answer

Salut,
Essaye ceci:
Dim var1,var2,var3,.....,varn

Var1=val(text1.text)..idem pour var2,var3...varn
Text4.text=Str$(Var1+var2+var3+ etc...)
Val prend le string et renvoie une valeur
Str$ fait le contraire

Pas la peine de déclarer des long..
A +
Marc

Addition de 3 chiffres

3 réponses

Discussions similaires