Problème sur condition "<=" vba

Lone-wolf

XLDnaute Barbatruc

• 22 Juin 2016

• #2

Re : Problème sur condition "<=" vba

Bonjour Juzi et bienvenue sur XLD

À quoi correspond x??. Appparemment, x devrait être aussi une constante. Exemple x = 10 et L = 100.

 

Vote positif 0 Vote négatif

J

JuZi

XLDnaute Nouveau

• 22 Juin 2016

• #3

Re : Problème sur condition "<=" vba

Merci Lone-wolf

x varie de 0 à L avec un pas de 0,1.
L est égale à une valeur renseignée par l'utilisateur (10 par exemple).

Pour x=0 jusqu'à x=9,9 tout fonctionne correctement. Mais quand x passe à 10 donc quand x=L, le programme ne rentre pas toujours dans la boucle alors qu'il devrait puisque la condition est "Do while x <= L"

J'ai mis le fichier en pj, au cas où il y en a qui s'ennuieraient

 

Pièces jointes

• Programme CDR v1.xlsm

  24.8 KB · Affichages: 20

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 22 Juin 2016

• #4

Re : Problème sur condition "<=" vba

Bonsoir JuZi

C'est compliqué pour moi. Mais en mettant if x > L Then ça pourrait joué??

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 22 Juin 2016

• #5

Re : Problème sur condition "<=" vba

Bonjour,

ça doit être dû à une perte de précision suite aux conversions décimal/binaire.
Essaie avec :

Code:

Do While Round(y, 6) <= Round(L, 6)

eric

edit : ajoute en-dessous la ligne :
If (Round(y, 6) = Round(L, 6)) <> (y = L) Then Debug.Print y - L: Stop
Tu verras que pour y=L=2 en fait y - L = 4.44089209850063E-16 et non 0

 

Dernière édition: 22 Juin 2016

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 23 Juin 2016

• #6

Re : Problème sur condition "<=" vba

Salut tous,

Je m'incruste à la conversation,
Ca ne repond pas à la question du tout, mais bon ^^

Pourquoi ne pas remplacer :

Code:

x=0
Do While x <= L
...
x=x+p
loop

Par :

Code:

for x = 0 to L step p
...
next x

Perso, j'ai toujours un doute entre "while" et "until" (peut etre aussi dû à mes lacunes en anglais ^^)

++

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 23 Juin 2016

• #7

Re : Problème sur condition "<=" vba

Re,

Pourquoi ne pas remplacer : ... par : ...

Cliquez pour agrandir...

Pas mauvaise idée mais avec Step 0.1 le problème se reposera.

Code:

Sub test()
    Dim i As Single
    For i = 0 To 2 Step 0.1
        Debug.Print i
    Next i
End Sub

s'arrêtera à 1.9
Il faudrait un pas de 1 et diviser par 10 avant d'utiliser i.
eric

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 23 Juin 2016

• #8

Re : Problème sur condition "<=" vba

Re,

Que fait:

Code:

        Debug.Print i

??

En effet, j'ai remarqué la problématique. Bizarre... et dommage, j'étais convaincu de mon idée ^^

++

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 23 Juin 2016

• #9

Re : Problème sur condition "<=" vba

Debug.Print sort le résultat dans la fenêtre d'exécution de VBE (Ctrl+G pour l'afficher)

 

Vote positif 0 Vote négatif

J

JuZi

XLDnaute Nouveau

• 24 Juin 2016

• #10

Re : Problème sur condition "<=" vba

eriiiic à dit:

Bonjour,

ça doit être dû à une perte de précision suite aux conversions décimal/binaire.
Essaie avec :

Code:

Do While Round(y, 6) <= Round(L, 6)

eric

edit : ajoute en-dessous la ligne :
If (Round(y, 6) = Round(L, 6)) <> (y = L) Then Debug.Print y - L: Stop
Tu verras que pour y=L=2 en fait y - L = 4.44089209850063E-16 et non 0

Cliquez pour agrandir...

Bonsoir tout le monde,

Merci eriiiic, c'est exactement la solution à mon problème!

 

Vote positif 0 Vote négatif