Boucle while-wend dans un code
morigann
Messages postés
66
Statut
Membre
-
abderrahimv Messages postés 23 Statut Membre -
abderrahimv Messages postés 23 Statut Membre -
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!
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:
- Boucle while-wend dans un code
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide