Limite dans les additions ??

[yadla]

Bonjour le forum,

J'effectue une addtion de 10 valeurs de TextBox.

Mon problème : Valeur1 n'est pas ajoutée aux autres, mais concaténée...

• valeur1=15
• valeur2=10
• valeur3=10
• valeur4=10
• valeur5=10
• valeur6=10
• valeur7=10
• valeur8=10
• valeur9=10
• valeur10=10

Je devrais avoir la somme = 1005... Mais j'ai 15900...
Soit valeur1 & somme(valeur2 à 10)

Alors j'ai essayé en passant par des variables + sommes intermédiaires

• somme1 = valeur1 à 5
• et somme2 = valeur6 à 10
• et somme = somme1 + somme2

Mais c'est toujours pareil

Quequ'un sait pourquoi ca me fait ca ?

Merci de votre aide

 

[Robert]

Re : Limite dans les additions ??

Bonjour Yadla, bonjour le forum,

Il faut se mefier des textboxes qui renvoient souvent des chaînes de caractères (alphanumérique) au lieu des valeurs numériques. As-tu pensé à convertir.

Exemple :

Dim valeur1 As Interger 'déclare la variable valeur1
Dim valeur2 As Interger 'déclare la variable valeur2
Dim valeur3 As Interger 'déclare la variable valeur3
Dim valeur4 As Interger 'déclare la variable valeur4
Dim valeur5 As Interger 'déclare la variable valeur5
Dim tot As Integer 'déclare la variable tot
 
valeur1 = CInt(TextBox1.Value) 'convertit la valeur de la TextBox1 en nombre Entier
valeur2 = CInt(TextBox2.Value) 'convertit la valeur de la TextBox2 en nombre Entier
valeur3 = CInt(TextBox3.Value) 'convertit la valeur de la TextBox3 en nombre Entier
valeur4 = CInt(TextBox4.Value) 'convertit la valeur de la TextBox4 en nombre Entier
valeur5 = CInt(TextBox5.Value) 'convertit la valeur de la TextBox5 en nombre Entier
 
tot=valeur1+valeur2+valeur3+valeur4+valeur5

 

[yadla]

Re : Limite dans les additions ??

Bonjour,

Merci Robert.

C'est bon, mais c'est tout de même bizarre, qu'il m'ait pris en string seulement valeur1...

Mais maintenant tout marche.

Encore merci.