Discussion :

[jer35]

bonjour,
j'ai un petit souci,
j'ai un resultat qui s' affiche avec une virgule et lors du calcul suivant ,il ne tient compte que du premier chiffre et pas ceux apres la virgule.
comment la transformer en point.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
v = ((2 * pi) / 60) * (Val(Form2.Text6.Text) * rayontambour)
 
MyVar = v
v = Format(MyVar, "0.00")
 
Form2.Text4.Text = v

jer35

[SfJ5Rpw8]

Salut,

comment sont déclarées tes variables ...?



si tu affiche myVar , après son affectation cela donne quoi .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
msgbox myVar

[jer35]

salut,
il affiche toujours la virgule au lieu du point

jer35

[SfJ5Rpw8]

Salut,

comment sont déclarées tes variables ...?

[jer35]

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Text7_Change()
Dim pi As Double
Dim v As Double
Dim rayontambour
 
rayontambour = (Val(Form2.Text7.Text) / 2) / 1000
pi = 3.1415927
 
Form2.Text5.Text = CDbl(3.6 * Val(Form2.Text1.Text) * Val(Form2.Text2.Text) * Val(Form2.Text3.Text) * Val(Form2.Text4.Text))
 
v = ((2 * pi) / 60) * (Val(Form2.Text6.Text) * rayontambour)
 
'myVar = v
'v = Format(myVar, "##.####")
 
'MsgBox myVar
 
Form2.Text4.Text = v
End Sub

[SfJ5Rpw8]

donc v est un double

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim v As Double

et ici tu utilise format qui renvoi une chaine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v = Format(MyVar, "0.00")

essai plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
v = ((2 * pi) / 60) * (Val(Form2.Text6.Text) * rayontambour)
Form2.Text4.Text = Format(v, "0.00")

[jer35]

salut ,
j'ai toujours le meme souci ,
en fait le calcul que je souhaite executer est :3.6 *2.25*7*0.75*2,82
la valeur 3.6 est donner d'office dans la formule
les valeurs 2.25 - 7 - 0.75 sont rentrées par l'utilisateur dans des textbox
2,82 est le resultat d'un precedent calcul et avec la virgule
vb6 me donne 85,05 comme resultat car il ne tient pas compte du 82 apres la virgule.

merci

jer35

[SfJ5Rpw8]

remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(Val(Form2.Text6.Text)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(Val(Replace(Form2.Text6.Text,",","."))

[jer35]

merci
j'ai reussi a trouvez une solution,
a l'endroit ou j'éxécutais le calcul,pour utilisez la valeur la textbox
je mettai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

val(text4.text)

que j'ai remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cdbl(text4.text)

et sa
fonctionne

je vais quand meme essayé votre code

merci pour l'aide

jer35