test d'égalité faux - approximations lors de la conversion de nombres

Bonjour,

j'ai besoin d 'aide.
Je me retrouve devant un bug mystérieux sur une comparaison de nombre.
J'ai la variable cumul qui est défini en Double comme Encours. Cumul est le résultat du cumul via VBA de plusieurs celulles (les .Value).

Lorsque j'arrive dans mon test( pour certaines lignes seulement) dans la fenêtre espion et dans le débuggeurs j'ai la même valeur dans les deux variables. Pourtant VBA me dit qu'elles sont différentes. j'en perd mon latin. J'ai donc essayé de changer les formats mais rien n'y fait..

Du coup j'ai fait une soustraction de l'un a l'autre et je me retrouve avec un écart de pouième à la puissance -13.

Je ne comprends pas d'ou ca vient.. Mes celulles ont le même format et les chiffres dedans sont avec deux chiffres après la virgule...


Si on peut plus se fier au IF....:calim2::calim2:

La même valeur de chaque côté me rend True au test If A <> B

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Encours As Double Encours = 0 If Cumul <> 0 Then Encours = Sheets("Saisie").Cells(i, "J").Value If Cumul <> Encours Then ----> Erreur End If End If End If

---

En fouillant j'ai trouvé une explication. Ca marche mais c'est tordu...:ccool:

Citation:

---

Tout cela est très simple en fait, contrairement aux apparences ;-)))

Les ordinateurs utilisent le système binaire et non le système décimal.
Cela conduit à de très légères approximations lors de la conversion de
nombres non entiers.

Avec des variables déclarées comme Double, le niveau de précision est tel
que ces approximations génèrent un écart (infime, mais non nul) lors
de l'addition. Il n'y a donc pas d'égalité, ce qu'on peut vérifier avec :

Sub CompareDouble()
Dim i As Double, j As Double, k As Double
i = 130.88
j = 120.2
k = 251.08
MsgBox k - (i + j)
End Sub

MsgBox affiche un écart de 2,8421709430404E-14, soit 2,84 que
multiplie 10 puissance -14. Par conséquent le test d'égalité échoue.

En déclarant les variables en Single, c'est-à-dire avec une précision
moindre (4 octets au lieu de 8), l'écart n'est plus perceptible.

---