Discussion :

[guillaume89]

Bonjour,
J'ai un probleme avec les arrondis à 2 chiffres dans excel. J'ai essayé plusieur methode sans succes.
Le nombre inscrit dans la cellule est bien arrondi. Mais la cellule garde en memoire les chiffre apres la virgule.
Exemple:
valeur ht en cellule(2,2)=55.22
valeur tva en cellule(2,3)=LC(-1)*19.6/100 donne 10.82312
valeur ttc en cellule(4,4)=LC(-2)+LC(-1) donne 66.04312

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
a = 3
For i = 2 To 4
    Cells(a, i) = FormatNumber(Cells(2, i), 2)
Next i
'TTC-HT-TVA devait donner 0
Cells(a, 5) = Cells(a, 4) - Cells(a, 2) - Cells(a, 3)

Les cellules de destinations sont bien arrondis, 55.22 ; 10.82 ; 66.04
mais le TTC - TVA - HT donne 7,10543E-15 au lieu de 0. Les valeurs des cellule ne sont donc pas arrondis.

J'ai le même résultat avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Cells(a, i) = CLng(Cells(2, i) * 100) / 100
Cells(a, i) = Fix(Cells(2, i) * 100) / 100
Cells(a, i) = Round(Cells(2, i) * 100) / 100

Auriez-vous une solution?
Merci

[zazaraignée]

Heu... et en ajoutant une paire de parenthèses ? histoire de bien définir le calcul à l'intérieur de la fonction Round (et en lui donnant le nombre de décimales) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(a, i) = Round((Cells(2, i) * 100) / 100), 2)

[JackOuYA]

Bonjour,


la fonction TRONQUE ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=TRONQUE(A11;2)

Mais je suis pas d'accord avec toi quand tu dis qu'en arrondissant tous les membres de ton opération ( TTC - HT - TVA) tu devrai avoir 0, comme résultat.. tu as plus de chance d'avoir 0 si tu n'arrondi pas .

[SorrowLane]

Bonjour,

Essayes avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
a = 3
For i = 2 To 4
    Cells(a, i) = Round(Cells(2, i), 2)
Next i
'TTC-HT-TVA devait donner 0
Cells(a, 5) = Cells(a, 4) - Cells(a, 2) - Cells(a, 3)

Le format d'affiche ne modifie que l'affichage du nombre et pas le nombre lui-même. C'est donc purement visuel: Tandis que l'utilisation de la fonction arrondi modifie le nombre en l'arrondissant.

La fonction tronque va couper le nombre par rapport aux nombre de décimales indiquées en paramètre. Par contre, ce nombre ne sera pas arrondi.

Ainsi, la fonction TRONQUE(10,596;2) donne comme résultat 10,59.
Tandis que la fonction ARRONDI(19,596;2) donne comme résultat 10,60.

PS : Pour préciser, lorsqu'on n'indique pas le nombre de chiffres après la décimale pour la fonction ARRONDI, on va arrondir au nombre entier le plus proche.

[zazaraignée]

Je vois que nous sommes trois à avoir répondu en même temps. Mais il est impardonnable de ma part de ne t'avoir pas souhaité la bienvenue (ça fait partie de mon boulot de modératrice).

Donc : bienvenue sur le forum DVP! (suite par MP).

[guillaume89]

Bonjour,
Merci pour vos reponses, mais j'obtiens toujour le même resultat.
Avez-vous essayé ce code sur vos ordis? Ca vous donne la même chose que moi?
C'est etrange non !

Je travail avec des arondis, pour étre au centime et ce probléme m'engendre des erreures dans le cas de cumule de calculs.

[Invité]

Bonjour Guillaume89,

Je ne sais pas si bien tout compris, mais votre code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 2 To 4
    Cells(a, i) = FormatNumber(Cells(2, i), 2)
Next i

n'implique pas que votre nombre soit arrondi à 2 décimales, c'est uniquement au niveau de l'affichage mais Excel conserve en mémoire votre nombre avec 15 chiffres (si mes souvenirs sont bons) sauf si dans les options vous avez coché "Calcul avec la précision au format affiché".

Par contre si lors du calcul de la tva vous indiquez :

tva = Round(ht * tauxtva / 100, 2)

il ne devrait pas y avoir de problème d'arrondi (en tout cas je n'en ai pas).

[guillaume89]

Merci pour ta réponse Jacques,
Mais fait l'expérience suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Essai_arrondi()
    'Avec 55.22 dans la cellule (10.2)
    Cells(10, 3) = Round(Cells(10, 2) * 19.6 / 100, 2) 'donne 10.82
    Cells(10, 4) = Cells(10, 2) + Cells(10, 3) 'donne 66.04
    Cells(10, 5) = Cells(10, 4) - Cells(10, 2) - Cells(10, 3) '66.04-55.22-10.82 ne donne pas 0!!
End Sub

Etonnant non?