Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionl = Val(x) If l <> (Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi) Then
Et ce n'est pas de la fainéantise notoire
x = InputBox("Veuillez saisir un jour" _
& vbNewLine & vbNewLine & "Lundi à Samedi", "Saisie du Jour")
If x = "" Then Exit Sub
l = Val(x)
If l <> (Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi) Then
MsgBox "Veuillez vérifier votre saisie"
GoTo RetourArrière
End If
Private Sub CommandButton3_Click() Dim toto As String toto = "on s'en moque" Do While verifie(toto) = 0 toto = InputBox("Veuillez saisir un jour, sous la forme Lundi, Mardi, etc ...samedi et dimabche exclus") Loop If toto <> "" Then MsgBox "la preuve : tu as choisis " & toto & ", qui est le jour de rang " & verifie(toto) End Sub Private Function verifie(toto As String) As Integer If toto "" Then verifie True: Exit Function For i = 1 To 5 If UCase(WeekdayName(i)) UCase(toto) Then verifie i Next End Function
et ne pas répondre que de booster tes 8000 messages déjà écrit