"Do while" à conditions multiples

Bonjour,

Je tente de faire un petit script pour le boulot. Je tente de faire une simple boucle pour vérifier la saisie d'un paramètre.

Lorsque je mes une seule condition à mon "Do while", tout marche bien. Quand j'ajoute les OR, plus rien ne marche et le script me retourne "fin d'instruction attentue".

Voici mon code actuel :

Code:

---

1 2 3 4 5 6

dim region AS string region = ""   Do While region <> "ORL" OR region <> "TOV" OR region <> "VZV" OR region <> "SKX" region = inputbox ("TOV = Tours / SKX = St Pierre des corps/ ORL = Orléans - Les aubrais / VZV = Vierzon - Bourges", "Indiquez votre secteur :") Loop

---

Malgré de nombreuses recherches sur google, je ne trouve aucune explication à ce problème.

Pourriez vous m'aider ?

Edit : Si au passage, vous auriez une technique pour que mon script ne soit pas sensible à la casse, ca m'arrangerais ^^

Bonjour,

Ton problème ne me parait pas trop compliqué.
Essaye donc de mettre des parenthèses afin que l'interpréteur ne s'y perde pas :

Code:

---

Do While (region <> "ORL") OR (region <> "TOV") OR (region <> "VZV") OR (region <> "SKX")

---

Ensuite, si tu ne veux pas qu'il soit CaseSensitive, plusieurs solutions. Je t'en donnerai 2 (à mettre dans les conditions de ton while):
- UCase(region) <> "ORL" --> Ucase = UpperCase : fonction pour mettre une chaine en majuscule
- StrComp(region, "ORL", vbTextCompare) <> 0 --> StrComp = StringComparison : retourne 0 si les 2 string sont les mêmes (vbTextCompare : CaseInsensitive)

Bonne continuation.

(Edit : Je ne sais pas pourquoi les retours à la ligne que j'ai mis dans mon post ne s'affichent pas correctement dans ce message sur le forum...)

Merci, tout marche parfaitement maintenant.