Discussion :

[Fukyvin]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^^

[pitchalov]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[Fukyvin]

Merci, tout marche parfaitement maintenant.