Vérifier un mot saisi via Inputbox

Bonjour,

J'utilise une macro pour saisir plusieurs paramètre dont un qui s'intitule "Zone". Je demande aux utilisateur de mettre Nord ou Sud.

mon code est :

zone = InputBox("Merci d'indiquer la zone" & Chr(13) & "Mettez NORD, ou SUD" , "Zone")

If Zone <> "NORD" And Zone <> "SUD" Then

MsgBox "Merci d'écrire NORD ou SUD "

Zone = InputBox("Dans quelle zone se trouve l'affaire ?" & Chr(13) & "Mettez Nord, ou Sud" & Chr(13) & "Mettez DAN si affaire L/XL", "Zone de l'Affaire")

End If

Le souci :

Mon contrôle prend en considération que Nord ou Sud soient écrit en Majuscule. Or, je m'en fiche. Je cherche à contrôler les mots "nord" et sud" et peu importe si c'est écrit en majuscule ou en minuscule

Des idées ?

Merci

Bonjour,

Un essai ...

Tout au haut du module où est écrit cette macro > ajoute Option Compare Text ...

ric

Bonjour,

Une solution est de passer le contenu de zone en majuscules :

zone = UCase(InputBox("Merci d'indiquer la zone" & Chr(13) & "Mettez NORD, ou SUD" , "Zone"))

Edit : salut ric !

Bonjour, à tous

Sinon convertissez la zone saisie en majuscule :

zone = InputBox("Merci d'indiquer la zone" & Chr(13) & "Mettez NORD, ou SUD" , "Zone")
If UCase(Zone) <> "NORD" And Zone <> "SUD" Then
MsgBox "Merci d'écrire NORD ou SUD "
Zone = InputBox("Dans quelle zone se trouve l'affaire ?" & Chr(13) & "Mettez Nord, ou Sud" & Chr(13) & "Mettez DAN si affaire L/XL", "Zone de l'Affaire")
End If

Cdlt,

Edit : @Pedro22 : Même idée simultanée, bon pas au même endroit mais désolé !

Merci à tous.

La solution de Ergotamine fonctionne très bien.

Simple ... Fallait y penser .. Merci