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:

Arrondi vba
Vba arrondi - Meilleures réponses
Vba arrondi supérieur - Meilleures réponses
Vba arrondi supérieur ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Excel arrondi 0.5 ✓ - Forum Excel
Find vba - Astuces et Solutions
Arrondi 0.5 supérieur ou inférieur - Forum Excel

2 réponses

Réponse 1 / 2

eljojo_e Messages postés 1151 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 141
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 636
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 1151 Date d'inscription lundi 10 mai 2010 Statut Membre Dernière intervention 14 octobre 2022 141 > 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

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 à 15:26

svp. j'utilise quoi alors...?

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

Tu peux utiliser les 2, dans tous les cas l'arrondi ne te donnera pas un résultat = 100% au total donc ce n'est pas grave.

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 à 15:52

je vous remercie infiniment.... merci merci merci pour votre collaboration et votre patience avec moi

Mes salutations les plus distinguées

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 636
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 636
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 636
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