basamir
Messages postés335Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention 8 mars 2008
-
1 mai 2007 à 14:02
basamir
Messages postés335Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention 8 mars 2008
-
1 mai 2007 à 14:54
bonjour,
j'ai deux champs text où je saisie des montants et je veux effectué la sommation de ces deux champs.
ce que j'ai fait ne marche pas im me ressort une concaténation:
Private Sub calculer_Click()
For i = 0 To param_devis.Text1.Text - 1
Text7(i).Text = Text5(i).Text * Text6(i).Text
Next
For i = 0 To param_devis.Text1.Text - 1
Text7(13).Text = Text7(13).Text + Text7(i).Text
Next
End Sub
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 1 mai 2007 à 14:21
Private Sub calculer_Click()
For i = 0 To param_devis.Text1.Text - 1
Text7(i).Text = CStr(CDbl(Text5(i).Text) * CDbl(Text6(i).Text))
Next
For i = 0 To param_devis.Text1.Text - 1
Text7(13).Text = CStr(CDbl(Text7(13).Text) + CDbl(Text7(i).Text))
Next
End Sub
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #