Probleme avec un bouton de commande qui convertit en euros

Question

Mon programme contient 6 textbox ou l'on saisit des montant en francs.
la septieme est une textbox qui contient le total.
Le bouton de calcul qui passe en euros convertit chaque contenu de textbox mais, mon probleme est pour celle du total qui me donne le total des entiers sans tenir compte des decimales!

merci de votre aide

ci joint mon code:

totaleuro = 0
Text1.Text = Val(Text1.Text) / 6.55957
Text1.Text = Round(Text1, 1)
totaleuro = CDbl(totaleuro) + CDbl(Text1.Text)
Text2.Text = Val(Text2.Text) / 6.55957
Text2.Text = Round(Text2, 1)
totaleuro = CDbl(totaleuro) + CDbl(Text2.Text)
Text3.Text = Val(Text3.Text) / 6.55957
Text3.Text = Round(Text3, 1)
totaleuro = CDbl(totaleuro) + CDbl(Text3.Text)
Text4.Text = Val(Text4.Text) / 6.55957
Text4.Text = Round(Text4, 1)
totaleuro = CDbl(totaleuro) + CDbl(Text4.Text)
Text5.Text = Val(Text5.Text) / 6.55957
Text5.Text = Round(Text5, 1)
totaleuro = CDbl(totaleuro) + CDbl(Text5.Text)
Text6.Text = Val(Text6.Text) / 6.55957
Text6.Text = Round(Text6, 1)
totaleuro = CDbl(totaleuro) + CDbl(Text6.Text)

Text7.Text = CDbl(totaleuro)

RememberTheKing · Answer

Ta variable TotalEuro ne serait-elle pas déclarée as Integer ?

shervy · Answer

La fonction Val te renvoie certes un double mais si ton séparateur décimal est une vigule, seule la partie entière est reconnue.
Pour résoudre ce problème il faut utiliser la fonction CDbl comme tu le fait plus loin dans ton code.

Autre chose pourquoi tu n'utilises pas un groupe de contrôles Text
de façon à faire :

For i=0 to 5
    Text(i).Text = CDbl(Text(i).Text) / 6.55957
    Text(i).Text = Round(Text(i).Text, 1)
    totaleuro = totaleuro + CDbl(Text(i).Text)
Next i
Text(6).Text = totaleuro 

Allez bon courage

flipote · Answer

non elle est declaréé en tant que double!

Probleme avec un bouton de commande qui convertit en euros

3 réponses

Discussions similaires