Discussion :

[fmris]

Bonjour
j'ai le code suivant lorsque j'appuie sur un bouton

Code :

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

UserForm1.Label10.Caption = 100 * (Range("g30").Value + Range("g31").Value + Range("g32").Value + Range("g33").Value) ^ 0.5

Si le reultat est correct, il m'affiche beaucoup de chiffre apres la virgule
or je souhaiterais avoir 2 chiffres apres la virgule 50,00
Je ne sais pas comment faire avec le label.caption
Merci de votre aide

[Solkien]

C'est (TRES) moche, mais ca devrait fonctionner :

Code :

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

1
2
3
4
5
 
Dim EntierTemporaire As Long
EntierTemporaire = CLng(100*(100 * (Range("g30").Value + Range("g31").Value + Range("g32").Value + Range("g33").Value) ^ 0.5))
 
UserForm1.Label10.Caption = CDbl(EntierTemporaire) / 100

Il y a peut etre une conversion inutile ...

[Invité]

Bonjour Fmris,

Vous voulez afficher une valeur avec 2 décimales.

Vous pouvez essayer :

Code :

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

1
2
3
4
5
6
 
Dim myvar as variant
myvar = 100 * (Range("g30").Value + Range("g31").Value + Range("g32").Value + Range("g33").Value) ^ 0.5
myvar = format(myvar, "#,##0.00)
 
UserForm1.Label10.Caption = myvar