Arrondir en VBA [Résolu/Fermé]

Merci pour l'intention mais pourriez vous être plus précis....

La variable est surement déclarée en Single ou en Double pour avoir des virgules.
Si après tes calculs tu stocke le résultat dans une variable déclarée en entier, tu aura un arrondi au supérieur ou à l'inférieur. Après il faut voir si c'est ce que tu veux.

je vous remercie ...mais j'ai pas trouvé la solution voila mon VBA:

classe_a = 0

For i = 1 To x
If Cells(7 + i, 11) = "A" Then
classe_a = classe_a + 1
Else
End If
Next
Range("a1") = classe_a

stock_a = Cells(7 + classe_a, 8)
valeur_a = Cells(7 + classe_a, 10)

' puis le commentaire
commentaire.Caption = "Nombre d'article classe A est " & classe_a & " articles ( " & stock_a * 100 & "% des articles représentant " & valeur_a * 100 & " % de la veleur du stock). "

Oui mais "classe_a" est déclaré quelque part. Donc faite une déclaration "Dim classe_a_bis as integer" puis avant l'affichage, "classe_a_bis = classe_a" puis vous remplacez "classe_a" par "classe_a_bis" dans l'affichage.

dommage mais je crois ça marche pas. fort possible que j'ai pas bien compris comment et ou je met tout les formules

Allez sur le site cijoint.com,
Retirez les données personnelles/confidentielles puis envoyez moi le lien que je regarde.
Je regarderai surement après la pause déjeuner.

Merci voila
http://www.cjoint.com/c/FBqlwd0GSA3

Tu veux arrondi à cb de chiffres significatifs?
Car si tu le veux en entier sans virgules vu que c'est de l'arrondi ça dépassera forcément 100% donc dis moi ce que tu préfère.

pour être plus précis je avoir pas plus de deux chiffres après la virgule. Merci

http://www.cjoint.com/c/FBqniQDfJVv

Voila ta macro modifiée teste la.

Merci . un autre petit souci ..lol..
j'ai pas pu téléchargé la fichier .. ça se télécharge en mode texte ..
si vous permettez de le zipper (winrar) ou l'archiver

Ok pas de soucis
https://www.cjoint.com/c/FBqnnCxEEXv
Voici le nouveau lien.