Arrondir en VBA

Résolu

amerya2016 -

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

2 réponses

Réponse 1 / 2
eljojo_e
En vba, il faut écrire
```
round(toncalcul), 2) '2 étant le nombre de décimal
```
1
1. Pierre1310
  
  j'ai utilisé Application.WorksheetFunction.RoundUp(stock_a * 100, 2) mais oui ça revient au même.
  
  0
2. eljojo_e
  
  @Pierre1310C'est différent, roundup() c'est un arrondi supérieur, et round() c'est un arrondi tout court
  
  0
3. amerya2016 Auteur
  
  svp. j'utilise quoi alors...?
  
  0
4. Pierre1310
  
  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.
  
  0
5. amerya2016 Auteur
  
  je vous remercie infiniment.... merci merci merci pour votre collaboration et votre patience avec moi
  
  Mes salutations les plus distinguées
  
  0
Réponse 2 / 2
Pierre1310
Bonjour,

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

0
1. amerya2016 Auteur
  
  Merci pour l'intention mais pourriez vous être plus précis....
  
  0
2. Pierre1310
  
  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.
  
  0
3. amerya2016 Auteur
  
  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). "
  
  0
4. Pierre1310
  
  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.
  
  0
5. amerya2016 Auteur
  
  dommage mais je crois ça marche pas. fort possible que j'ai pas bien compris comment et ou je met tout les formules
  
  0

Arrondir en VBA

2 réponses

Discussions similaires

Newsletters