Arrondir en VBA

Résolu

Valeur
Vba

amerya2016 Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
Pierre1310 Messages postés 8564 Date d'inscription Statut Membre Dernière intervention - 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
Vba arrondi supérieur - Meilleures réponses
Arrondi vba - Meilleures réponses
Arrondi 0.5 supérieur ou inférieur - Forum Excel
Vba arrondi supérieur ✓ - Forum VB / VBA
Arrondi au 0.5 supérieur dans une formule + condition ✓ - Forum Excel
L'équivalent de l'arrondi.sup en VBA - Forum VB / VBA
Arrondir sur excel au 0,5 supérieur ✓ - Forum Excel

2 réponses

Réponse 1 / 2

eljojo_e Messages postés 1155 Date d'inscription Statut Membre Dernière intervention 154

En vba, il faut écrire

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

Pierre1310 Messages postés 8564 Date d'inscription Statut Membre Dernière intervention 651

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

eljojo_e Messages postés 1155 Date d'inscription Statut Membre Dernière intervention 154 > Pierre1310 Messages postés 8564 Date d'inscription Statut Membre Dernière intervention

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 8564 Date d'inscription Statut Membre Dernière intervention 651

Bonjour,

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

amerya2016 Messages postés 33 Date d'inscription Statut Membre Dernière intervention

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

Pierre1310 Messages postés 8564 Date d'inscription Statut Membre Dernière intervention 651

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 33 Date d'inscription Statut Membre Dernière intervention

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 8564 Date d'inscription Statut Membre Dernière intervention 651

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 33 Date d'inscription Statut Membre Dernière intervention

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

Votre réponse

Discussions similaires