OVH Cloud OVH Cloud

Nombre de chiffres après la virgule!

1 réponse
Avatar
Kyvu
Bonjour =E0 vous,

Le bout de code suivant me permet de calculer et de mettre=20
en commentaire le pourcentage r=E9alis=E9 par rapport =E0 un=20
budget annuel dans un joli tableau r=E9capitulatif...

Sub CalculBudget()
For I =3D 3 To 10
Cells(I, 3).Comment.Text Text:=3D"Soit " & ((Cells(I, 3) *=20
100) / Cells(I, 2)) & "% du budget."
Next I
End Sub

Le probl=E8me c'est que j'ai parfois moult chiffres apr=E8s la=20
virgule dans mes commentaires. Comment faire pour limiter=20
le r=E9sultat =E0 deux chiffres apr=E8s la virgule, ceci par=20
macro et seulement dans cette feuille?

Merci pour votre aide.

@micalement.



Kyvu On Line!

1 réponse

Avatar
Ellimac
Bonjour,

a = ((Cells(I, 3) * 100) / Cells(I, 2))
Cells(I, 3).Comment.Text Text:="Soit " & Application.Text
(a, "#.00") & " % du budget."

Camille

-----Message d'origine-----
Bonjour à vous,

Le bout de code suivant me permet de calculer et de
mettre

en commentaire le pourcentage réalisé par rapport à un
budget annuel dans un joli tableau récapitulatif...

Sub CalculBudget()
For I = 3 To 10
Cells(I, 3).Comment.Text Text:="Soit " & ((Cells(I, 3) *
100) / Cells(I, 2)) & "% du budget."
Next I
End Sub

Le problème c'est que j'ai parfois moult chiffres après
la

virgule dans mes commentaires. Comment faire pour limiter
le résultat à deux chiffres après la virgule, ceci par
macro et seulement dans cette feuille?

Merci pour votre aide.

@micalement.



Kyvu On Line!
.