Problème boucle while

Résolu
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

2 réponses

Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
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
0
julien
 
Parfait théo !!! Je ne connais pas cette fonction , merci beaucoup et à bientôt :)
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
0
julien
 
Merci bien Pierre , le problème est résolu ^^ a bientôt
0