Discussion :

[Jiyuu]

Bonjour,

Je calcule dans un Label la division entre deux valeurs de texbox.
Je souhaite arrondir la valeur trouvé à 1 ou 2 chiffre après la virgule.

Comment faire???

[Jérôme Lambert]

Code :

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

1
2
3
Dim valeur As Single
valeur = 5.123
MessageBox.Show(Format(valeur, "#0.00"))

[Jiyuu]

Désolé, mais si je copie et remts ton code en forme, c'est la valeur 0.00 qui sort et non mon arrondi...

[Jérôme Lambert]

Preuve à l'appui

[Jiyuu]

Je ne dis pas que ton code ne marche pas, mais seulement que je rencontre un problème dans mon formulaire.
Voici un extrait de mon code:

Dim valeur as single
valeur = (TextBox1.Text / (3600 * 3.14 * (TextBox2.text * TextBox3.Text / 4)))
Label1.text = format(valeur, "#0.00")

Dans ce cas, j'ai bien 0.00 qui sort.

Peux-tu m'aider

[BassBeat]

Ca ne résoudra peut-être pas ton problème, mais je ne sais pas si faire des opérations numériques sur des .Text donne des résultats cohérents...

Si tu mets un point d'arrêt sur la ligne du "format(..." et que tu regardes ce qu'il y a dans valeur, ça donne quoi ?

[Jiyuu]

Dans le code ci-dessus si je remplasse valeur par Label.text tout marche correctement.
De même si je remplace la ligne
LVIT.Text = Format(valeur, "#0.00")

par
LVIT.Text = valeur
j'ai ma valeur complète.

[BassBeat]

As-tu essayé le même code que Cardi, pour voir si ça marche, sorti du contexte de ton appli ?

[Jiyuu]

J'ai essayé dans un autre context où j'ai recpier le code de Cardi et ça fonctionne

[Jiyuu]

Voici le code que j'ai écrit.

Dim valeur As Single
valeur = (TB16.Text / (3600 * 3.14 * (TB6.Text * TB6.Text / 4)))
MessageBox.Show(valeur)

Dans ce cas la valeur qui apparait est la valeur complète de la formule.
Comment puis-je l'arrondir à deux chiffres après la virgule.

D'avance merci