Bleme de calcul
Laulaut
-
23 oct. 2001 à 20:23
cs_Zeroc00l Messages postés 367 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 11 février 2010 - 15 mai 2002 à 23:57
cs_Zeroc00l Messages postés 367 Date d'inscription lundi 1 avril 2002 Statut Membre Dernière intervention 11 février 2010 - 15 mai 2002 à 23:57
6 réponses
ben c simple tu a déclarer tes varables integer... et ca sa veut dir que c'erst des entier... déclare les as long et la tu aura les virgulle et en + ton prog va jamais marcher... car une foit tu utilise Pressfr et une autre Press ... ca va po
je dois mettre quoi a la place de intergern stp
Private Sub Command1_Click()
Dim total As Integer
Dim presse As Integer
Dim horspresse As IntegerIf Text1.Text "" Then Text1.Text 0
presse = Text1.TextIf Text2.Text "" Then Text2.Text 0
horspresse = Text2.Text
On Error GoTo fin
total = presse + horspresse
Text3.Text = Round(total, 2)
Exit Sub
fin:
End Sub
Private Sub Command1_Click()
Dim total As Integer
Dim presse As Integer
Dim horspresse As IntegerIf Text1.Text "" Then Text1.Text 0
presse = Text1.TextIf Text2.Text "" Then Text2.Text 0
horspresse = Text2.Text
On Error GoTo fin
total = presse + horspresse
Text3.Text = Round(total, 2)
Exit Sub
fin:
End Sub
je dois mettre quoi a la place de intergern stp
Private Sub Command1_Click()
Dim total As Integer
Dim presse As Integer
Dim horspresse As IntegerIf Text1.Text "" Then Text1.Text 0
presse = Text1.TextIf Text2.Text "" Then Text2.Text 0
horspresse = Text2.Text
On Error GoTo fin
total = presse + horspresse
Text3.Text = Round(total, 2)
Exit Sub
fin:
End Sub
Private Sub Command1_Click()
Dim total As Integer
Dim presse As Integer
Dim horspresse As IntegerIf Text1.Text "" Then Text1.Text 0
presse = Text1.TextIf Text2.Text "" Then Text2.Text 0
horspresse = Text2.Text
On Error GoTo fin
total = presse + horspresse
Text3.Text = Round(total, 2)
Exit Sub
fin:
End Sub
dim total as long
pour le nbre de chiffre apres la virgule il faut ensuite la fonction maxlenght ou formater le texte ####0,## par exemple
pour le nbre de chiffre apres la virgule il faut ensuite la fonction maxlenght ou formater le texte ####0,## par exemple
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Dim total As long
Dim presse As long
Dim horspresse As long
et t'a même pas besoin de déclarer tes variables...
Dim presse As long
Dim horspresse As long
et t'a même pas besoin de déclarer tes variables...
cs_Zeroc00l
Messages postés
367
Date d'inscription
lundi 1 avril 2002
Statut
Membre
Dernière intervention
11 février 2010
15 mai 2002 à 23:57
15 mai 2002 à 23:57
voila la solution : met dans ta commande :
Text3.Text = Round(Val(Text1.Text) + Val (text2.Text),NbrdedecimalVoulue )
Attention les valeur rentre dans text1 et text 2 doivent etre saisi avec le point et NON la virgule.
Si tu veux remedier a ce probleme il faut ecrire ce code avant la ligne de code que je viesn de te donner.
Text1.Text= replace(Text1.Text,",",".")
Text2.Text= replace(Text2.Text,",",".")
pour Vb Val("12,4589655")= 12 car il y a une virgule et pas de point
A+
-={[ Zeroc00l ]}=-
Text3.Text = Round(Val(Text1.Text) + Val (text2.Text),NbrdedecimalVoulue )
Attention les valeur rentre dans text1 et text 2 doivent etre saisi avec le point et NON la virgule.
Si tu veux remedier a ce probleme il faut ecrire ce code avant la ligne de code que je viesn de te donner.
Text1.Text= replace(Text1.Text,",",".")
Text2.Text= replace(Text2.Text,",",".")
pour Vb Val("12,4589655")= 12 car il y a une virgule et pas de point
A+
-={[ Zeroc00l ]}=-
