Discussion :

[jamelie]

Bonjour,
j'ai cherché dans l'aide de VBA et sur internet mais j'ai pas trouvé la cause de mon erreur.
Je dispose d'une feuille excel ou son renseignées des cellules. Ma macro permet de verifier si la somme de certaines cellules est égale à 1 ce qui fonctionnait jusqu'ici. Sauf que aujourd'hui j'ai des valeur avec 2 chiffres apres la virgule et ca ne fonctionne plus.
En fait sur 3 cellules j'ai 0,7 + 0,15 + 0,15. Quand le code additionne les deux premières cellules il obtient 0,85 mais quand il additionne la 3ème le résultat est 0,999999... donc il me dit qu'il y a une erreur dans mon fichier (c'est moi qui ai créé l'erreur) sauf que c'est faut. alors que quand j'ai 0,5 + 0,4 + 0,1 ca fonctionne.
Voici mon code:

Code :

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

1
2
 
sommecoeff = sommecoeff + CSng(Format(CDbl(Cells(i, tabCoeffHrs(j)))))

avec sommecoeff declaré en single.

Que dois-je faire?

D'avance merci

Jamelie

[Plutonien]

Salut,
D'une manière générale faut déclare des double.
Ensuite, on ne doit jamais teste un double par rapport à une autre double sur un ordinateur , a cause des erreur d'arrondi.
Car par Exemple :
0.95 est différent de 0.94999999999999999


Pour ton test il faut teste faire une fonction du style :

Code :

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

1
2
3
4
5
6
 
Function Equal(ByRef v1 As Double, _
                    ByRef v2 As Double, _
                     Optional theError As Double = 0.00000001) As Boolean
    If (Abs(v1 - v2) > theError ) Then Equal = False Else Equal = True
End Function

Quand tu test ta somme égale à 1 tu appelle cette fonction

[ouskel'n'or]

Inutile de passer par une fonction :

Code :

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

1
2
3
4
5
6
Dim sommecoeff As Single
sommecoeff = 0.123787745
sommecoeff = sommecoeff + CSng(Cells(10, 8).Text)
'ou
sommecoeff = sommecoeff + CSng(Cells(10, 8).Value)
MsgBox sommecoeff

Testé

(Bonjour jfontaine, tu as testé ton code ? Chez moi, il "semble" ne pas fonctionner, enfin... pas plus que mon précédent...)

[jfontaine]

j'ai testé mon code, et il fonctionne. (Excel 2007)
Par contre, il est possible que suivant les versions il faut utiliser Value2