Problème boucle while Résolu/Fermé

Question

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

Theo.R · Answer

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

Pierre1310 · Answer

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

Problème boucle while

2 réponses

Discussions similaires