Imprécisions dans un calcul par macro

Version imprimable

Bonjour à tous,

En premier lieu, merci pour l'aide que vous fournissez sur ce forum. J'ai commencé le VBA il y a tout juste 2 mois et les (très) nombreuses discussions de ce forum m'ont permis de venir à bout de tous mes problèmes. :ccool: ...excepté le suivant :

J'ai crée une petite macro (ultra simple) pour générer une liste de valeurs (de 0.00 à 3.50) par incrémentation :
Code:

1 2 3 4 5 6 7 8 9 'INCREMENTATION POUTRE : X0 = 40 ' Ligne de départ de l'incrémentation CPa = 7 ' Colonne Position absolue Ltot = Range("E11").Value ' Longueur totale de la poutre Do Cells(X0 + 1, CPa) = Cells(X0, CPa) + 0.01 X0 = X0 + 1 Loop Until Cells(X0, CPa) >= Ltot
Cependant, il apparait dans la dite liste des valeurs "parasites" :
Ex : 0,820000000000001 en lieu et place de 0,82 ou encore 3,45999999999997 pour 3,46 attendu et cela me pose d'énormes problèmes pour la suite. Ce qui est étrange, c'est que cela ne le fait pas pour toute la liste...

Je ne pense pas que l'erreur vienne du code car je l'ai utilisé à de multiples reprises et l'erreur n'apparait qu'aléatoirement. Par contre, j'ai pu constater que cette même erreur se produisait également (et toujours aléatoirement) quand "j'imposais" une valeur :
Ex : Si delta < 5 alors Cellule A1 = 0,7 et la valeur que je lis en A1 après avoir fait tourner la macro est 0.69999999999997...!!!!?

Je ne sais pas du tout d'où peut venir cette imprécision.:cry:

Bref, dans un souci de clarté, ma question est la suivante :
Comment faire en sorte que les valeurs calculées via les macros soient absolument juste ?

Je remercie par avance tous ceux qui prendront la peine de se pencher sur cet épineux problème.
Alex

01/06/2010, 16h46
zyhack

Bonjour

j'ai xl2003 et en testant ton code je n'est eu aucun problème mais vu l'écart entre tes valeurs tu pourrais utiliser sans problème la fonction ROUND

essaye en remplaçant

Code:

Cells(X0 + 1, CPa) = Cells(X0, CPa) + 0.01

par

Code:

Cells(X0 + 1, CPa) = Round(Cells(X0, CPa) + 0.01, 2)
01/06/2010, 17h25
Archichat

Salut zyhack,

Effectivement, ça marche très bien avec Round. :ccool: Merci. Je vais essayer d'avancer avec ça. Mais cela ne résoud pas le problème à la source. Je veux dire par là que les calculs (et surtout les résultats) générés par les macros restent susceptibles d'être porteurs d'erreurs. Même si entre nous, ce n'est pas une incertitude à 10^-14 près qui va fausser les calculs, j'en suis bien conscient...

Peut être de la machine qui est un peu vieille mais j'y crois pas trop.

Cela ne vient pas non plus de la version d'Excel parce que j'ai eu ce même genre d'erreur sur 2003. Je suis passé sur 2007 justement en me disant que ça venait de la version et que ces erreurs seraient résolues dans 2007. Mais non. :cry:

Je vais nettoyer mes macros avec Round partout où il y a une erreur mais je laisse le sujet ouvert (au cas où quelqu'un trouve la source du problème) et aussi parce que je pense que ces incertitudes vont me générer d'autres types d'erreurs dont je ne me méfie pas encore, j'en profiterais alors pour les mettre sur le même post (si bien sûr elle sont causées par ce pb) ;)

Merci en tout cas pour ce premier pas vers la solution.
01/06/2010, 18h14
Archichat

1 pièce(s) jointe(s)

Impossible is nothing ..?

Bon ben voilà, les autres erreurs ne se sont pas faits attendre. C'est encore plus puissant (en terme d'impossibilité) cette fois ci :

Je déclare :

Code:

DelMin = Range("J19").Value

En Range("J19"), j'ai mis (à la main) 0.7.

Ensuite, je crée un boucle avec de multiples conditions que je ne vais pas détailler ici mais dont la conclusion concernée ordonne :

Code:

Range("AZ14") = Round(DelMin, 2)

Et lorsque je clique sur "AZ14" = 0,699999988079071 !!!!!!!:cry::cry:
Ce n'est pas une histoire de boucle qui tourne pas ou autre. J'en veux pour preuve l'imprimécran du déboguage (en pièce jointe).

Là, j'ai l'impression qu'excel se rebelle..! Je pense vraiment qu'il y a un gros souci. J'en suis à penser que ma bécane est vérolée. Sinon, je ne vois pas comment il serait possible qu'excel se "trompe" sur des commandes aussi simples...

Merci par avance à qui me sortira de cette spirale infernale.
01/06/2010, 20h02
Didier Gonard

Bonjour,

voir les sujets suivants au sujet de Round :

http://support.microsoft.com/?scid=k...25330&x=19&y=9

http://support.microsoft.com/?scid=k...4983&x=10&y=10

cordialement,

Didier
02/06/2010, 08h42
Archichat

Merci Ormonth de ta réponse :ccool: mais l'aide microsoft ne résoud pas le pb d'inefficacité du Round :?. En effet, sur l'aide, ils expliquent pourquoi excel et VBA ne traduise pas de la même manière un arrondi "centré" de type ,5. L'un va l'arrondir au supérieur et l'autre à l'inférieur. Dans mon cas, la situation est différente. Malgré la présence de Round aucun arrondi n'est fait :
=> Round(Variable, 2) donne 0,699999988079071 !!!

Cela dit, après une nuit de triturage cérébral :arf:, j'ai trouvé la solution (mais pas vraiment la cause...) : Déclarer toutes les variables problématiques en tant que "Double" et non pas "Single".

Je ne comprend pas pourquoi car d'après les définitions même de ces déclarations (Single & Double), rien ne laisse supposer l'apparition de telles erreurs. Toujours est-il que ça marche.

Voilà tout.
Merci à ceux qui ont tenté de m'aider :merci:. Je clos le sujet (en "résolu") mais je reste à l'écoute de quiconque saura m'expliquer le pourquoi du comment de cette affaire...
Alex

Citation:

Archichat : Je clos le sujet (en "résolu") mais je reste à l'écoute de quiconque saura m'expliquer le pourquoi du comment de cette affaire...

Une piste dûe à leurs caractéristiques :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub toto() Dim pp2 As Single Dim pp3 As Double pp2 = 1.4645987983547 pp3 = 1.4645987983547 Cells(4, 2) = pp2 Cells(5, 2) = pp3 Cells(7, 2) = (pp2 * 10000000000000#) Cells(8, 2) = (pp3 * 10000000000000#) 'ensuite tu formates les 4 cellules en format nombre à 13 virgules / feuille. End Sub
Une autre piste, ce pourrait être dans leur nature profonde ?

Citation:

Les nombres à virgule flottante (Single et Double) présentent des plages plus larges que les nombres de type Decimal, mais ils peuvent être sujets aux erreurs d'arrondi.Les types à virgule flottante prennent en charge un nombre de chiffres significatifs inférieur à celui du type Decimal, mais ils peuvent représenter des valeurs d'amplitude supérieure.

bon c'est pour Visual Studio 2010, mais nous sommes toujours sur une base Visual Basic et le fond de l'article est intéressant ;)

http://msdn.microsoft.com/fr-fr/library/ae55hdtk.aspx

voir aussi le "Voir aussi" du bas de l'article

cordialement,

Didier

03/06/2010, 08h52
Archichat

Bonjour Ormonth,

Merci encore pour le suivi de ce sujet pourtant "Résolu". Il semblerait en effet que la solution au problème soit au bout du lien que tu m'as donné :ccool:; dans le "Voir aussi" / "Dépannage des types de données" :

http://msdn.microsoft.com/fr-fr/library/ae382yt8.aspx

D'après ce que j'ai compris, les nombres à virgule flottante (Single & Double) sont stockés sous la forme de fraction binaire [k / 2^n]. Et il arrive (très souvent) que les valeurs résultantes ne soient en réalité "que" des valeurs approchées à la 15ème décimales près [0.2000000000000000001] et ce, malgré le fait que la valeur "demandée" par l'utilisateur soit entière [0.2]. Les opérations multiples sur ces valeurs ne faisant qu'augmenter l'incertitude (toujours à la 12 / 15ème décimale près).

Ils préconisent alors l'utilisation de "Decimal" (et éventuellement de "Mod"), instruction plus lente que les deux précédentes mais plus précise, pour se débrarrasser du problème. :calim2:

Dans les faits, je comprend d'où semble venir l'erreur en ce qui concerne mon problème posté sur ce forum. Cela dit, j'ai "réussi" à la solutionner en utilisant "seulement" Double à la place de Single et non pas Decimal... Toutefois, je pense tout de même que la forme sous laquelle sont stockées les valeurs (fraction binaire donc) est l'origine du problème et que, dans mon cas, le seul fait de passer d'une simple à double précision suffit à résoudre ces problèmes d'incertitude étant donné que les calculs et instructions que j'ai crées ne poussent pas la machine et le programme dans ses derniers retranchement.:cfou:

Bref, merci de m'avoir aidé Ormonth. :merci: Grâce à toi je peux faire le malin au bureau :lun: avec mes macros de + de 8000 lignes de code sans qu'elle ne plantent pas en pleine présentation ! ;)

Salutations.:coucou: