Sujet Précédent Sujet Suivant

Arrondir en VBA

Résolu

Valeur
Vba

amerya2016 Messages postés 37 Statut Membre -
Pierre1310 Messages postés 8854 Statut Membre - 16 févr. 2016 à 15:55

Bonjour,

je souhaiterais arrondir la valeur_a ... mais j'ai pas pu le faire.
je vous pris de bien vouloir m'aider

Merci

Afficher la suite

A voir également:

Vba arrondi
Arrondi sup excel - Meilleures réponses
Vba arrondi supérieur - Meilleures réponses
Vba arrondi supérieur ✓ - Forum VB / VBA
Excel arrondi à 0.5 ✓ - Forum Excel
Excel arrondir à 0.5 sup ou inf - Forum Excel
Arrondir une moyenne à 0.5 près ✓ - Forum Excel
Arrondi 0.5 supérieur ou inférieur ✓ - Forum Excel

2 réponses

Réponse 1 / 2

eljojo_e Messages postés 1255 Statut Membre 155

En vba, il faut écrire

round(toncalcul), 2) '2 étant le nombre de décimal

Pierre1310 Messages postés 8854 Statut Membre 652

j'ai utilisé Application.WorksheetFunction.RoundUp(stock_a * 100, 2) mais oui ça revient au même.

eljojo_e Messages postés 1255 Statut Membre 155 > Pierre1310 Messages postés 8854 Statut Membre

C'est différent, roundup() c'est un arrondi supérieur, et round() c'est un arrondi tout court

Réponse 2 / 2

Pierre1310 Messages postés 8854 Statut Membre 652

Bonjour,

Stocke ta variable dans un entier ça devrai régler ton problème.

amerya2016 Messages postés 37 Statut Membre

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

Pierre1310 Messages postés 8854 Statut Membre 652

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.

amerya2016 Messages postés 37 Statut Membre

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). "

Pierre1310 Messages postés 8854 Statut Membre 652

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.

amerya2016 Messages postés 37 Statut Membre

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

Discussions similaires

Copier le contenue d'une cellule dans autre classeur

Effacer le contenu d'une cellule

VBA - NE copier que la valeur et non la formule

VBA - Récupérer des données d'un classeur fermé

Masquer des lignes en fonction de la valeur d'une cellule

Ecrire une valeur dans une cellule en fonction d'une autre

Discussions similaires

Newsletters