Somme de 2 textbox

Signaler
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005
-
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Voilà mon problème :
Lorsque je veux faire la somme de 2 textbox exemple textbox1 : 5 textbox2 : 10 ben comme résultat, y met 510 au lieu de 15, si quelqu'un peut me dire comment faire pour que le résultat soit 15, ben je lui dit merci!!

Miko500

7 réponses

Messages postés
162
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
22 mars 2004

Je pense que tu a fait textbox1.text & textbox2.text
remplace le & par un +

A+
0
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005

Ah non, je suis désolé, j'ai mis le "+" et pas le "&"

Miko500
0
Messages postés
162
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
22 mars 2004

Bah alors tu fait comme ca:
dim lngCHiffre as long
dim lngChiffre2 as long
dim lngResult as long

lngChiffre = text1.text
lngChiffre2 = text2.text

lngResult = lngChiffre + lngchiffre2

text3.text = lnresult

Voila
0
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005

Merci
:-)
0
Messages postés
162
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
22 mars 2004

Tu peux aussi faire ca:

Msgbox (cLng(text1) + cLng(text2)

mais faut être sur que les 2 textbox contienne des chiffre:
if IsNumeric(text1) then
msgbox "Numérique=vrai"
else
msgbox "Numérique=faux"
end if
0
Messages postés
162
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
22 mars 2004

DE rien :-)
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Si tu veux, j'ai fais une source dessus la soustraction, il te sufiras de remplacer le + par un - :

http://www.vbfrance.com/article.aspx?Val=6317

Au cas où... ;-)

DARK SIDIOUS
0