somme VBA mauvais résultats !

[Sixmon]

Salut à tous!!

J'ai un gros soucis avec une somme toute bête dans VBA.
Je demande à l'utilisateur de rentrer 4 paramètres a,b,c et d, dimensionner en temps que "integer"

ensuite je souhaite faire la somme de ces quatres nombres et la, il me sort pas du tout le bon résultat. exemple: pour lui 5 + 10 + 5 + 15 = 5120
ou encore 15 + 5 +20 + 15 = 15535
bref, je ne comprends pas.

voici la partie de mon code relative à ce probleme :

Dim a, b, c, d As Integer

dim l as single (j'ai aussi testé integer mais il était hors capacité)

a = UserForm4.TextBox2.Value
b = UserForm4.TextBox3.Value
c = UserForm4.TextBox4.Value
d = UserForm4.TextBox5.Value
l = a + b + c + d

TextBox45 = l
TextBox46 = a
TextBox47 = b
TextBox48 = c
TextBox49 = d

pour info, les valeurs dans les box 46 47 48 et 49 sont les bonnes. et j'ai aussi testé textbox45 = a+b+c+d et j'ai le même résultat que avec le code ci-dessus!😕

merci d'avance!!

 

[Pierrot93]

Re : somme VBA mauvais résultats !

Bonjour Sixmon,

essaye peut être comme ci-dessous, code à utiliser dans le module de l'usf :

Dim a As Double, b As Double, c As Double, d As Double
Dim l As Double
a = CDbl(Me.TextBox2.Value)
b = CDbl(Me.TextBox3.Value)
c = CDbl(Me.TextBox4.Value)
d = CDbl(Me.TextBox5.Value)
l = a + b + c + d
MsgBox l

bon après midi
@+

 

[Sixmon]

Re : somme VBA mauvais résultats !

merci pour ta réponse!

Par contre, il me dit qu'il y a incompatibilité de type sur les lignes ou je vais chercher les valeurs de a b c et d

a = CDbl(Me.TextBox2.Value)
b = CDbl(Me.TextBox3.Value)
c = CDbl(Me.TextBox4.Value)
d = CDbl(Me.TextBox5.Value)

une idée??

 

[tototiti2008]

Re : somme VBA mauvais résultats !

Bonjour Sixmon, Bonjour Pierrot,

peut être :

a = Val(Me.TextBox2.Value)
b = Val(Me.TextBox3.Value)
c = Val(Me.TextBox4.Value)
d = Val(Me.TextBox5.Value)

 

[Sixmon]

Re : somme VBA mauvais résultats !

Oups, dsl pour mon dernier message, j'avais pas réellement lu le code et je l'avais pas mis au bon endroit. En fait, j'ai pris le code donné par pierrot et j'ai remplacé Me par Userform4 parce que je travaillé pas dans le même userform et ca a marché!!

Merci bcp pour vos solutions!!

 

[Pierrot93]

Re : somme VBA mauvais résultats !

Re, bonjour toto

petite précision sur la fonction "val", elle ne reconnait que le point comme séparateur décimal...

bon après midi
@+