Arrondir en VBA

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