Boucle while-wend dans un code

Fermé
morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 - 2 juil. 2009 à 09:00
abderrahimv Messages postés 22 Date d'inscription jeudi 11 juin 2009 Statut Membre Dernière intervention 4 décembre 2009 - 2 juil. 2009 à 20:11
Bonjour,

Voici mon code :

Private Sub Workbook_Open()

Dim langue As String

langue = InputBox("Bonjour, veuillez sélectionner une langue (Français/Anglais)") & Chr(13) & " " & Chr(13) & ("Hello, please choose a language (French/English)")
If langue = "Français" Or langue = "français" Or langue = "French" Or langue = "french" Then
MsgBox ("Bienvenue dans le ..." & Chr(13) & " " & Chr(13) & "Vous pouvez sélectionner ...")
ElseIf langue = "English" Or langue = "english" Or langue = "Anglais" Or langue = "anglais" Then
MsgBox ("Welcome to the ..." & Chr(13) & " " & Chr(13) & "You can choose ...")
Else
MsgBox ("La langue sélectionnée n'est pas disponible, veuillez sélectionner Français ou Anglais") & Chr(13) & " " & Chr(13) & ("The selected language is not available, please choose French or English")
End If

End Sub

1- Pour la ligne InputBox, la ligne en anglais (en gras) ne s'affiche pas, quelqu'un peut m'expliquer pourquoi?
2- J'aimerais que le programme effectue une boucle (while-wend) si l'utilisateur n'entre rien ou une langue qui n'est pas mentionnée pour qu'il puisse rentrer la langue correcte à nouveau, mais je ne sais pas ou placer ma boucle (je ne voudrais pas tout faire bugger..)

Merci de votre aide!
A voir également:

2 réponses

morigann Messages postés 64 Date d'inscription mercredi 24 juin 2009 Statut Membre Dernière intervention 10 mai 2011 17
2 juil. 2009 à 11:37
Personne ne peut m'aider? s'il vous plaît c'est assez urgent, merci!
0
abderrahimv Messages postés 22 Date d'inscription jeudi 11 juin 2009 Statut Membre Dernière intervention 4 décembre 2009 33
2 juil. 2009 à 20:11
Essai "+" au lieu de "&" et remplace ("Hello, please choose a language (French/English)") Par
"Hello, please choose a language (French/English)" sans parentheses
0