Erreur calcul VBA

[Banzai64]

Bonjour et Joyeux Noël

Par cette belle nuit, je viens vers vous car j'ai un petit soucis

En faisant un programme pour ici, je me suis aperçu que des calculs simples (soustractions) en VBA étaient faux
A partir d'un nombre (non entier) je fais des soustractions avec des nombres stockés dans un tableau et à moment le résultat est faux
j'obtiens

3,19999999999999

au lieu de

3,2

et bien sur mes tests ultérieurs sont faussés

Je me suis arrangé avec Round mais je ne trouve pas que cela soit la bonne solution

Alors soit j'ai fait une erreur (ce qui ne m'étonnerait pas) soit vba a un soucis


Je joins un fichier exemple avec le problème

Ce n'est pas dans la page que l'on voit l'erreur mais dans la fenêtre exécution
ou si l'on fait du pas-à-pas dans la fenêtre variables locales

Merci de tester si vous avez le même problème

Merci

 

[ROGER2327]

Re : Erreur calcul VBA

Bonjour Banzai64

Même constat chez moi. (Sans étonnement : ces "erreurs" sur le type double sont inévitables, binaire et décimal faisant mauvais ménage.)
Peut-être serait-il bon d'envisager de ne calculer que sur des entiers en interne, puis de passer au décimaux pour l'affichage :

Sub test()

Dim Tablo
Dim Nombre&
Dim Resultat&
Dim I%

  Tablo = Array(100000, 50000, 15000, 14000, 13000, 12000, 11000, 10000, 9000, 8000, 7000, 6000, 5800, 5700, 5600, 5500, 5400, 5350, 5300, 5250, 5200, 5100, 5070, 5050, 5025)
  Columns("A:B").ClearContents
  Nombre = 218.2
  Resultat = Round(1000 * Nombre, 0)
  For I = 0 To UBound(Tablo)
    Resultat = Resultat - Tablo(I)
    Cells(I + 1, "A") = Resultat / 1000
    Cells(I + 1, "B") = Round(Resultat, 3) / 1000
    Debug.Print Resultat / 1000, Round(Resultat, 3) / 1000
  Next I
End Sub

Sur ce, bonne nuit… À suivre demain ou après-demain…​

ROGER2327
#4812

Mercredi 25 Sable 138 (Nativité d'Archæoptéryx, ST)
5 Nivôse An CCXIX
2010-W51-6T02:16:30Z

 

[Banzai64]

Re : Erreur calcul VBA

Bonjour à tous et joyeux Noël

Merci ROGER2327

Cela me rassure quelque part, que ce problème n'existe pas que chez moi
C'est bien dommage de passer par voie détournée.
Parce qu'ici le programme n'étant pas trop conséquent, j'ai trouvé assez facilement d'où venait le problème et ainsi j'ai pu trouvé une solution
Mais dans un code plus important bonjour le debuggage
En te remerciant encore d'avoir prit le temps de tester et de trouver une solution pour contourner le problème

Je te (vous) souhaite de bonnes fêtes

 

[Fo_rum]

Re : Erreur calcul VBA

Salut,

et en changeant le type de variable (Remplacer , par ,@ dans Array()) ?

Sub test()

Dim Tablo
Dim Resultat#
Dim I As Byte
  Tablo = Array(100, 50, 15, 14, 13, 12@, 11@, 10, 9, 8, 7, 6, 5.8, 5.7, _
                5.6, 5.5, 5.4, 5.35, 5.3, 5.25, 5.2, 5.1, 5.07, 5.05, 5.025)
  'si on ne connait pas les réponses, @ (type Currency)pour chaque cas
  Columns("A:B").ClearContents
  Resultat = 218.2
  For I = 0 To UBound(Tablo)
    Resultat = Resultat - Tablo(I)
    Cells(I + 1, "A") = Resultat
    Cells(I + 1, "B") = Round(Resultat, 3)
    Debug.Print Resultat, Round(Resultat, 3)
  Next I
End Sub

Désolé mais le formatage de ce code n'est pas pris en compte donc supprimé.

 

[Banzai64]

Re : Erreur calcul VBA

Bonsoir

Merci Fo_rum

Ta solution fonctionne très bien.
Il suffit de déclarer au minimum 1 élément du tableau avec @

je te remercie et je te souhaites des très Bonnes Fêtes