faire une somme de variable de type integer en vba

[zeufman]

bonjour,

j'ai un petit soucis.

Je voudrai pouvoir additionner plusieurs variable, des nombes en fait,mais le résultat ne me revoie pa sune somme :

j'ai plusieurs textbox qui recoivent une valeur numérique, et sur lesquelles j'ai affecté une variable, et ensuite j'aimerais dans une autre textbox faire la somme de l'ensemble des textbox.

voici le code :

Dim vp1, vp2, vp3, vp4, vpsomme As Integer
Dim vu1, vu2, vu3, vu4, vusomme As Integer

vp1 = formulaire.vppeugeot.Value
vp2 = formulaire.vpcitroen.Value
vp3 = formulaire.vprenault.Value
vp4 = formulaire.vpautres.Value
vpsomme = vp1 + vp2 + vp3 + vp4
formulaire.vptotal = vpsomme

hélas, lorsque je teste, vp1 = 10 et vp2 = 4, pendant que vp3 et vp4 reste à 0, le résultat de vpsomme me renvoie : 10400
au lieu de me faire la somme et me renvoyer 14.
On dirait qu'il me colle les valeurs plutôt que d'additionner :S

J'ai tenté plusieurs définition de type de variable, mais pariel

En mode pas à pas, je vois la valeur de vp1 en

'10'

, est ce à dire qu'il la renvoie en valeur de texte et non en numérique ?

Quelqu'un pourrat il m'aider sur ce sujet ?

Vs en remerciant par avance

cdlt

 

[porcinet82]

Salut zeufman,

En fait, lorque tu rentre des donénes dans un textbox, il te les mets en string, donc effectivement pour faire une addition ca fonctionne pas tres bien.

En passant par val ca fonctionne (il me semble qu'il y a un autre code mais je me rappel plus lequel).
Ce qui donnerai par exemple :
textbox5=val(textbox4).val(textbox3)

@+

 

[pierrejean]

bonjour zeufman

comme leur nom l'indique les textbox contiennent du texte
pour avoir des chiffres il faut faire une conversion
par exemple
vp1 = clng(formulaire.vppeugeot.Value)

salut porcinet
la tu me bats d'une (petite) longueur

Message édité par: pierrejean, à: 14/02/2006 18:41

 

[porcinet82]

re pierrejean,

C'est vrai comme ca pas de jaloux , en plus ta solution est différente de la mienne, et j'ajouterai que c'est le code dont je ne me souvenais plus.

@+

 

[zeufman]

merci les gars ;-)

Ca faisait longtemps que je bloquais sur mes applis avec ça, comme ça c'est réglé

je vais mettre ça en place merci beaucoup.