Erreurs d'approximation entre Excel et VBA

Version imprimable

13/04/2007, 16h07
smassart

Erreurs d'approximation entre Excel et VBA
Bonjour,

J'ai remarqué que si j'effectue un calcul avec Excel, puis ce même calcul via une macro, le résultat est différent. Les 11 premières décimales sont identiques, mais les deux dernières diffèrent. Or il me faudrait la précision maximale.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() Dim k, s, g, c, x As Double k = 1000266.63 s = 0.999441703848 g = 0.999733441115 c = 1.10107753603 x = 109 Cells(1, 1) = k * (s ^ x) * (g ^ (c ^ x)) End Sub
Avec la macro, le résultat que j'obtiens est
61,3479790726356

Alors qu'en effectuant le calcul directement par une feuille excel j'obtiens
61,3479790726372

Quelqu'un peut m'aider à résoudre ce problème?
Merci!
13/04/2007, 16h19
Invité

Bonjour

Je ne pourrais te répondre, par contre dans ton code

Code:

Dim k, s, g, c, x As Double

Seul x est déclaré en double, VBA prend les autres en Variant, hors celui-ci les types de la meilleure maniére qu'il lui semble.

Redéclare toutes tes variables en double et relancent le calcul pour savoir si cela a changé quelque chose.

Sans garantie

Starec
13/04/2007, 16h24
smassart

Hélàs non, ça ne change rien du tout...
13/04/2007, 16h27
Invité

Orthographe

Re

Désolé, mais sache le à l'avenir pour tes déclarations de variables.

Au fait sais tu lequel est bon Excel ou VBA par curiosité ?

Starec
13/04/2007, 18h12
smassart

Le calcul effectué directement dans Excel est le bon...
13/04/2007, 19h30
ouskel'n'or

J'ai essayé en forçant le format "Decimal"

Citation:

Dim k As Double, s As Double, g As Double, c As Double, x As Double
s1 = CDec(s) ^ CDec(x)
s2 = CDec(k) * CDec(s1)
s3 = CDec(c) ^ CDec(x)
s4 = CDec(g) ^ CDec(s3)
Result = CDec(s2) * CDec(s4)
Cells(9, 2).Value = CDec(Result) '= 61,3479790726364

Ceci quelque soit la déclaration des variables, double ou variant
Pour 61,3479790726372 dans Excel

Pr mémoire

Citation:

Avec la macro, le résultat que j'obtiens est
61,3479790726356

Alors qu'en effectuant le calcul directement par une feuille excel j'obtiens
61,3479790726372
13/04/2007, 19h35
alsimbad

oui, j'ai le même résultat, les erreurs commencent des les premiers calculs puissances et s'accumulent. c'est bizarre. les mysteres de l'électronique
16/04/2007, 09h49
smassart

En effet, il s'agit de l'opérateur "exposant" qui entraîne ces erreurs...

L'algorithme derrière cette opération diffère entre Excel et VB? Ca me parait fort peu probable quand même...

J'ai pensé à la solution permettant d'utiliser worksheetFunction qui, selon ce que je me serait laisser dire, devrait pouvoir être utiliser pour toutes les fonctions Excel, en VBA.
Doit me manquer une référence car ça ne fonctionne pas, Power n'étant reconnu que comme mot clé (Mis en majuscules, et modifié par le débugger)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Calculs() Dim k, s, g, c, x As Double, Valeur As Double Cells(1, 1) = k * (s ^ x) * (g ^ (c ^ x)) k = 1000266.63 s = 0.999441703848 g = 0.999733441115 c = 1.10107753603 x = 109 Valeur = k * (Application.WorksheetFunction.Power(s, x)) * _ (Application.WorksheetFunction.Power(g, _ (Application.WorksheetFunction.Power(c, x)))) MsgBox Valeur End Sub
Si quelqu'un avait l'obligeance de me dire quelle référence il faut valider dans VBA pour que Power soit reconnu, je pense que smassart lui en serait vivement reconnaissant ;)
Edit
Ce n'était pas un pb de référence mais de syntaxe... bbil a dit ! Merci bbil
Code corrigé -> Valeur = 61,3479790726372 (!)

16/04/2007, 11h13
smassart

Et ça marche!

Merci beaucoup pour ton aide, c'est vraiment sympa!
Et je retiens cette fonction "worksheetfunction", ca pourrait être utile à l'avenir...

Encore merci!