Arrondi et cellule excel

Bonjour,

Je faisais des essais et je confirme, comme Ucfoutu :

Code:

---

1 2 3 4 5 6 7 8 9

Sub essai() Dim a!, b!, c! a = 66.04 b = 55.22 c = 10.82   Cells(1, 1) = a - b - c   End Sub

---

le résultat est bien 0

avec votre formule, il est :

0,00000000000000710542735760100000000

Moi aussi j'ai fait le test... J'ai tenté de remédier au problème en changeant le format de la cellule par un format numérique :

Code:

---

1 2 3 4 5 6 7 8

Sub toto() Dim a As Double, b As Double, c As Double a = 66.04 b = 55.22 c = 10.82 Cells(1, 1) = a - b - c 'Cells(1, 1).NumberFormat = "0.00" End Sub

---

Mais ça ne donne rien de concluant... Par contre, en utilisant l'arrondi sur le résultat de l'opération, j'obtiens bien zéro :

Code:

---

1 2 3 4 5 6 7

Sub toto() Dim a As Double, b As Double, c As Double a = 66.04 b = 55.22 c = 10.82 Cells(1, 1) = Round(a - b - c, 2) End Sub

---

Bonsoir zazaraignée,

Finalement le résultat est toujours le même.

Dans VBA un nombre affecté à une variable dont le type est défini est reconnu.

Par contre comment est interprété : 66.04 ?

Il ne s'agit que d'une suite de caractères non définis qui ne ne peut être reconnue comme un nombre.

Donc si je vous comprends bien, je ne peux pas travailler directement avec les cellules. Il faut forcement passer par des variables déclarées.
C'est quant même incroyable que vba ne puisse pas faire une opération si simple. Il faut le dire à Microsoft.

Citation:

---

Envoyé par guillaume89

Donc si je vous comprends bien, je ne peux pas travailler directement avec les cellules. Il faut forcement passer par des variables déclarées.
C'est quant même incroyable que vba ne puisse pas faire une opération si simple. Il faut le dire à Microsoft.

---

M$ n'a rien à voir là-dedans, c'est la façon dont fonctionne les ordinateurs, il s'agit d'un problème de représentation des nombres.
As-tu lu le lien que j'ai donné ? :

Citation:

---

Envoyé par caro95470

Ma petite pierre à l'édifice :
A priori Excle/VB comme tous les autres langages de programmation est confronté à l'imprécision des calculs avec des nombres à virgules flottantes.

Je n'arrive pas à trouver précis sur ce sujet dans Excel mais cela arrive dans tous les langages.

---

Citation:

---

Envoyé par l'article

Par exemple, dans un calcul en flottants IEEE double précision, (2^60+1)-2^60 ne donne pas 1, mais 0. La raison est que 2^60+1 n'est pas représentable exactement et est approché par 2^60.

---

Merci Caro,
J'ai parcourus ton article. Ca me semble compliqué pour ma petite tete. Je vais essayé de bidouiller mes programmes pour bosser avec des centièmes, et oublier les quelques poussieres qui m'encombre.

Bonsoir à tous

As tu essayer ceci :

Code:

---

1 2 3

Sub ess_calc() Cells(1, 1) = Round(66.04 - 55.22 - 10.82) End Sub

---

Cela m'indique "0"

Eric

Bonjour Ouskel'n'or,

Le problème est que si vous modifiez la dernière ligne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() '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   Cells(1, 1) = 55.22 Cells(2, 1) = CDbl(Format(Cells(1, 1).Value * 19.6 / 100, "0.00")) '-> 10,82 Cells(3, 1) = CDbl(Format(Cells(1, 1).Value * 119.6 / 100, "# ##0.00")) '-> 66,04 'Contrôle Cells(4, 1) = Cells(3, 1).Value - Cells(2, 1).Value - Cells(1, 1).Value End Sub

---

Le résultat affiche toujours : 7,10543E-15 ???

Par contre si on garde la ligne d'origine et que l'on ajoute :

Code:

---

Cells(5, 1) = Cells(4, 1) - Cells(3, 1)

---

on obtient bien = 0

Re Ouskel'n'or,

Non j'obtiens toujours :

7,10542735760100E-15
par contre si je remplace 19.6 par 10.00
et 119.6 par 110.00

J'obtiens
0,00000000000000E+00

D'où l'incompréhension.

Mais il y a sûrement une explication. Laquelle ?

Bonjour,

Je pense que l'on peut trouver l'explication ici :

http://support.microsoft.com/kb/78113/fr