Arrondir en VBA

Résolu/Fermé

Valeur
Vba

amerya2016 Messages postés 33 Date d'inscription mercredi 27 janvier 2016 Statut Membre Dernière intervention 23 février 2016 - 16 févr. 2016 à 09:44
Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 - 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

A voir également:

Vba arrondi supérieur
Vba arrondi - Meilleures réponses
Vba arrondir une valeur - Meilleures réponses
[VBA / Excel] Arrondir à l'entier supérieur ✓ - Forum VB / VBA
Arrondi 0.5 supérieur ou inférieur ✓ - Forum Excel
Excel arrondir à 0.5 sup ou inf - Forum Excel
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Superieur clavier ✓ - Forum Windows 8 / 8.1

2 réponses

Réponse 1 / 2

eljojo_e Messages postés 1155 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152
16 févr. 2016 à 14:21

En vba, il faut écrire

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

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
16 févr. 2016 à 14:23

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 lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 152 > Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020
16 févr. 2016 à 14:31

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 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
16 févr. 2016 à 09:49

Bonjour,

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

amerya2016 Messages postés 33 Date d'inscription mercredi 27 janvier 2016 Statut Membre Dernière intervention 23 février 2016
16 févr. 2016 à 09:51

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

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
16 févr. 2016 à 09:54

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 mercredi 27 janvier 2016 Statut Membre Dernière intervention 23 février 2016
16 févr. 2016 à 10:10

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 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
16 févr. 2016 à 10:16

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 mercredi 27 janvier 2016 Statut Membre Dernière intervention 23 février 2016
16 févr. 2016 à 12:03

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

[VBA / Excel] Arrondir à l'entier supérieur

VBA, arrondi 2 décimales après la virgule

Entier arrondi supérieur

l'équivalent de l'arrondi.sup en VBA

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