Calcul erroné de Excel

Bonjour,

J'ai le code suivant dans mon module VBA :

Code:

---

1 2 3 4 5

Dim Resultat1, Resultat2, Result As Double Resultat1 = CDbl(Worksheets(resultat).Cells(RowResultat, 12)) Resultat2 = CDbl(Worksheets(resultat).Cells(RowResultat, 13)) Result = Resultat1 - Resultat2

---

L'inspecteur de variable me renvoue
Watch : : Worksheets(resultat).Cells(RowResultat, 12).Value : 54859278,45 : Variant/Double : Module1.VerifS2
Watch : : Worksheets(resultat).Cells(RowResultat, 13).Value : 54859278,45 : Variant/Double : Module1.VerifS2
Watch : : Result : 7,45058059692383E-09 : Double : Module1.VerifS2

C'est quoi ce délire? 8O Pourquoi Excel me trouve-t-il un écart entre Resultat1 et Resultat2 alors que les deux variables ont rigoureusement la même valeur?

Merci par avance pour votre aide !

bonjour,

il n'y a pas de délire.
la syntaxe de ta déclaration variables est erronée.
il est impératif d'écrire :
dim Resultat1 as double
dim Resultat2 as double
dim Result As Double

sinon les deux premières déclaration sont effectivement considérée variant par Excel.

cordialement.

Bonjour,

selon comment a été calculé chaque cellule tu peux aussi avoir des erreurs d'arrondi dues aux conversions décimal<->binaire.
C'est normal, 1.01 par exemple ne tombera pas pile en binaire, si tu l'additionnes plusieurs fois ça fini par se voir (essaie une boucle avec type Single pour que l'erreur arrive plus vite et tu verras).
Arrondir les résultats est la solution
eric

merci pour vos réponses