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

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
```
1
1. 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.
  
  0
2. 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
  
  0
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.
0
1. amerya2016 Messages postés 37 Statut Membre
  
  Merci pour l'intention mais pourriez vous être plus précis....
  
  0
2. 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.
  
  0
3. 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). "
  
  0
4. 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.
  
  0
5. 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
  
  0

Arrondir en VBA

2 réponses

Discussions similaires

Newsletters