Discussion :

[smassart]

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 :

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

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!

[Invité]

Bonjour

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

Code :

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

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

[smassart]

Hélàs non, ça ne change rien du tout...

[Invité]

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

[smassart]

Le calcul effectué directement dans Excel est le bon...

[ouskel'n'or]

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

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

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

[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

[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...

[ouskel'n'or]

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 :

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

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 (!)

[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!