Discussion :

[trentks95]

Bonjour à tous,

Me revoilà avec un petit souci, je souhaite limiter les chiffres après la virgule,
j'ai essayé math.round et quelques autres mais rien ni fait, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub resultat_Click()
If Val(Text2.Text) <> 0 Then
Text3 = Val(Text1.Text) / Val(Text2.Text) ^ 2
If Text3.Text > 0 And x <= 16.5 Then Text4.Text = "Dénutrition"
If Text3.Text > 16.5 And x <= 18.5 Then Text4.Text = "Maigreur"
If Text3.Text > 18.5 And x <= 25 Then Text4.Text = "Corpulence normale"
If Text3.Text > 25 And x <= 30 Then Text4.Text = "Surpoids"
If Text3.Text > 30 And x <= 35 Then Text4.Text = "Obésité modérée"
If Text3.Text > 35 And x <= 100 Then Text4.Text = "Obésité morbide ou massive"
End If
End Sub

Merci pour vos réponses.
Séb

[ProgElecT]

Salut

Code :

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

MsgBox Round(12.3456789, 2)

La touche F2 dans l’Éditeur VB6 peut te donner de l'aide.
Tu peux aussi charger l'aide en ligne Visual Basic 6 et VBScript - MSDN, tu n'aurais pas à attendre le passage d'un forumeur pour avoir la réponse, je pense que cela serai plus pratique pour toi.

[trentks95]

Merci, mais je ne veut pas une msgbox, mais que mon résultat text3 s'affiche
Sans je ne sais combien de chiffres derrière la virgule.

Merci
Seb

[DAUDET78]

regarde Format$

[XylonAkau]

___Ia ora na.

je ne veut pas une msgbox, mais que mon résultat text3 s'affiche
Sans je ne sais combien de chiffres derrière la virgule.

___Je ne voudrais pas marcher sur les plates-bandes de ProgElecT (et en parallèle avec la solution donnée par Daudet78), mais qu'est-ce qui empêche de remplacer MsgBox pris comme exemple par Text3 ?

Code :

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

Text3.Text = Round(12.3456789, 2)

en remplaçant bien sûr 12.3456789 par la variable qui convient et 2 par le nombre de décimales désirées.
___Bonne fin de semaine à toutes et à tous.

[l_autodidacte]

regarde Format$

Avec la différence que Result = Round(nbr, 2) renvoie un nombre et Result = Format(nbr,".##") renvoie une chaîne.

[trentks95]

Bonjour à tous,

voici ce qui a fonctionné : Text3.Text = Format(Text3, ".##")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub resultat_Click()
If Val(Text2.Text) <> 0 Then
Text3 = Val(Text1.Text) / Val(Text2.Text) ^ 2
If Text3.Text > 0 And x <= 16.5 Then Text4.Text = "Dénutrition"
If Text3.Text > 16.5 And x <= 18.5 Then Text4.Text = "Maigreur"
If Text3.Text > 18.5 And x <= 25 Then Text4.Text = "Corpulence normale"
If Text3.Text > 25 And x <= 30 Then Text4.Text = "Surpoids"
If Text3.Text > 30 And x <= 35 Then Text4.Text = "Obésité modérée"
If Text3.Text > 35 And x <= 100 Then Text4.Text = "Obésité morbide ou massive"
Text3.Text = Format(Text3, ".##")
End If
End Sub

Merci pour votre aide.

Seb