Problème boucle while
Résolu
julien
-
julien -
julien -
Bonjour,
Pour deux conditions ma boucle s'exécute bien :
While moteur < 1 Or moteur > 4
MsgBox " La valeure saisie doit êrtre ''tous'' ou un nombre entier compris entre 1 et 4 "
moteur = InputBox("Moteur n°")
Wend
Mais si j'en rajoute une troisième , la boucle se répète un nombre infinie de fois même si les conditions sont respectées .. *
While moteur < 1 Or moteur > 4 Or moteur <> "tous"
MsgBox " La valeure saisie doit êrtre ''tous'' ou un nombre entier compris entre 1 et 4 "
moteur = InputBox("Moteur n°")
Wend
Une idée ? merci
Pour deux conditions ma boucle s'exécute bien :
While moteur < 1 Or moteur > 4
MsgBox " La valeure saisie doit êrtre ''tous'' ou un nombre entier compris entre 1 et 4 "
moteur = InputBox("Moteur n°")
Wend
Mais si j'en rajoute une troisième , la boucle se répète un nombre infinie de fois même si les conditions sont respectées .. *
While moteur < 1 Or moteur > 4 Or moteur <> "tous"
MsgBox " La valeure saisie doit êrtre ''tous'' ou un nombre entier compris entre 1 et 4 "
moteur = InputBox("Moteur n°")
Wend
Une idée ? merci
2 réponses
-
Bonjour,
Essayez Do until ... Loop plutôt que While Wend :Do Until moteur >= 1 And moteur <= 4 Or moteur = "tous"
MsgBox " La valeure saisie doit êrtre ''tous'' ou un nombre entier compris entre 1 et 4 "
moteur = InputBox("Moteur n°")
Loop -
Bonjour,
utilise soit statement soit loop pour voir.
https://docs.microsoft.com/fr-fr/dotnet/visual-basic/language-reference/statements/while-end-while-statement
https://www.excel-pratique.com/fr/vba/boucles.php
