somme de text box

-----Message d'origine-----
Bonjour à tous

j ai crée plusieur textbox dont le contenu de chacune
est

le resultat d'une operation differente ,
mon probleme est que dans la derniere textbox je desire
faire la somme de toutes les autres et je ni arrive pas
les esultats sont concatener mais pas ajoutés!

merci à tous de votre aide

Private Sub calcul_Click()

Dim Theorique As Integer
Dim reel As Integer
Dim Resultat As Integer

If IsNumeric(TGP1) Then
Theorique = (TGP1.Text)
End If

If IsNumeric(RGP1) Then
reel = (RGP1.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP1 - RGP1) Then
DGP1 = Resultat
End If


If IsNumeric(TGP2) Then
Theorique = (TGP2.Text)
End If

If IsNumeric(RGP2) Then
reel = (RGP2.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP2 - RGP2) Then
DGP2 = Resultat
End If

.

Bonjour à tous

j ai crée plusieur textbox dont le contenu de chacune est
le resultat d'une operation differente ,
mon probleme est que dans la derniere textbox je desire
faire la somme de toutes les autres et je ni arrive pas
les esultats sont concatener mais pas ajoutés!

merci à tous de votre aide

Private Sub calcul_Click()

Dim Theorique As Integer
Dim reel As Integer
Dim Resultat As Integer

If IsNumeric(TGP1) Then
Theorique = (TGP1.Text)
End If

If IsNumeric(RGP1) Then
reel = (RGP1.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP1 - RGP1) Then
DGP1 = Resultat
End If

If IsNumeric(TGP2) Then
Theorique = (TGP2.Text)
End If

If IsNumeric(RGP2) Then
reel = (RGP2.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP2 - RGP2) Then
DGP2 = Resultat
End If

Salut,

pour additionner deux textbox, il faut faire :

TextBox3.caption = CDbl(TextBox3.caption) + CDbl
(TextBox3.caption)

n'oublies pas de vérifier avant que les textbox sont
remplies par des chiffres

ça te va ?

-----Message d'origine-----
Bonjour à tous

j ai crée plusieur textbox dont le contenu de chacune
est

le resultat d'une operation differente ,
mon probleme est que dans la derniere textbox je desire
faire la somme de toutes les autres et je ni arrive pas
les esultats sont concatener mais pas ajoutés!

merci à tous de votre aide

Private Sub calcul_Click()

Dim Theorique As Integer
Dim reel As Integer
Dim Resultat As Integer

If IsNumeric(TGP1) Then
Theorique = (TGP1.Text)
End If

If IsNumeric(RGP1) Then
reel = (RGP1.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP1 - RGP1) Then
DGP1 = Resultat
End If


If IsNumeric(TGP2) Then
Theorique = (TGP2.Text)
End If

If IsNumeric(RGP2) Then
reel = (RGP2.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP2 - RGP2) Then
DGP2 = Resultat
End If

.

-----Message d'origine-----
Bonjour,

Lapsus ou distraction ? ;-))

La propriété Caption n'existe pas pour un TextBox, à
moins que cela ait rajouté dans une version plus récen-
te que Excel 2000, mais je n'en vois pas l'intérêt.

TextBox3 = CDbl(TextBox1) + Cdbl(TextBox2)

ou avec ton exemple

TextBox3 = CDbl(TextBox3) * 2

Salut,

pour additionner deux textbox, il faut faire :

TextBox3.caption = CDbl(TextBox3.caption) + CDbl
(TextBox3.caption)

n'oublies pas de vérifier avant que les textbox sont
remplies par des chiffres

ça te va ?

-----Message d'origine-----
Bonjour à tous

j ai crée plusieur textbox dont le contenu de chacune
est

le resultat d'une operation differente ,
mon probleme est que dans la derniere textbox je
desire

faire la somme de toutes les autres et je ni arrive
pas

les esultats sont concatener mais pas ajoutés!

merci à tous de votre aide

Private Sub calcul_Click()

Dim Theorique As Integer
Dim reel As Integer
Dim Resultat As Integer

If IsNumeric(TGP1) Then
Theorique = (TGP1.Text)
End If

If IsNumeric(RGP1) Then
reel = (RGP1.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP1 - RGP1) Then
DGP1 = Resultat
End If


If IsNumeric(TGP2) Then
Theorique = (TGP2.Text)
End If

If IsNumeric(RGP2) Then
reel = (RGP2.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP2 - RGP2) Then
DGP2 = Resultat
End If

.

--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.

-----Message d'origine-----
Bonjour,

Comme leur nom l'indique, ;-)) les TextBox contiennent
du texte. C'est pour cela que tu aboutis à une
concaténation.

Pour pouvoir faire une addition, une conversion préalable
en numérique s'impose. Par exemple :

TextBox3 = CDbl(TextBox1) + Cdbl(TextBox2)

ce qui équivaut à

TextBox3.Value = CDbl(TextBox1).Value + Cdbl
(TextBox2).Value

Value étant la propriété par défaut d'un TextBox, il est
inutile de l'écrire, elle est implicite.

Dans certaines circonstances, les conversions de types se
font automatiquement, ce qui te permet de tester

If IsNumeric(TGP1) Then

mais pour additionner les valeurs, une conversion
explicite

est nécessaire.

CDble convertit en Double. S'il s'agit de nombres
entiers, tu

peux utiliser CInt. Regarde l'aide pour voir les autres
possi-

bilités

Bonjour à tous

j ai crée plusieur textbox dont le contenu de chacune
est

le resultat d'une operation differente ,
mon probleme est que dans la derniere textbox je desire
faire la somme de toutes les autres et je ni arrive
pas

les esultats sont concatener mais pas ajoutés!

merci à tous de votre aide

Private Sub calcul_Click()

Dim Theorique As Integer
Dim reel As Integer
Dim Resultat As Integer

If IsNumeric(TGP1) Then
Theorique = (TGP1.Text)
End If

If IsNumeric(RGP1) Then
reel = (RGP1.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP1 - RGP1) Then
DGP1 = Resultat
End If

If IsNumeric(TGP2) Then
Theorique = (TGP2.Text)
End If

If IsNumeric(RGP2) Then
reel = (RGP2.Text)
End If

Resultat = difference(Theorique, reel)
If Resultat = (TGP2 - RGP2) Then
DGP2 = Resultat
End If

--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.