problème avec SELECT CASE

Bonsoir

Je suis confronté à un petit problème

A partir d'un inputbox, je fixe la valeur d'une variable défie au préalable comme publique et de type string.

En fonction des valeurs de cette variable je détermine certaines actions à accomplir et j'utilise la forme select case

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

JourSem = InputBox("Pour quel jour de la semaine voulez-vous imprimer les feuilles de garde ?", "Impression feuilles de garde")   ' MsgBox (JourSem)   Select Case JourSem   Case "lundi" Champ = 10 Call TriToursGardeSem   Case "mardi" Champ = 11 Call TriToursGardeSem Case "mercredi" Champ = 12 Call TriToursGardeSem Case JourSem = "jeudi" Champ = 13 Call TriToursGardeSem Case JourSem = "vendredi" Champ = 14 Call TriToursGardeSem Case JourSem = "samedi" Call ImpressionSamedi   End Select

---

Jusqu'au mercredi ca fonctionne, la procédure TriToursGardeSem est bien appelée et exécutée.

Par contre pour jeudi, vendredi et samedi... l'appel aux procédures indiquées est ignoré et l''instruction située après le end Select est directement exécutée...
Afin d'éviter des fautes de frappe, j'ai défini ma variable à partir d'une listbox au sein d'un userform et j'ai le même souci...:(

Avez-vous une idée de la source du problème ?

merci d'avance

Bonsoir,

Pourquoi d'un coté mets tu : Case "mercredi" et de l'autre Case JourSem = "samedi"

Mets Case "Samedi"

Amicalement

Dan

Bonjour,

Je ne choisirais personnellement pas une inputbox (qui complique la vie de l'utilisateur) dans un tel cas, mais un container visible/invisible avec une listbox préremplie)...

Mais si tu tiens à ton inputbox, simplifie au moins la vie de l'utilisateur. Gère les erreurs, répare les fautes de casse et les espaces indus...
Ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Command1_Click() Dim champ As Integer, JourSem As String, toto champ = 0 Do While champ = 0 JourSem = InputBox("Pour quel jour de la semaine voulez-vous imprimer les feuilles de garde ?", "Impression feuilles de garde") toto = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi") For i = 0 To UBound(toto) If toto(i) = Trim(LCase(JourSem)) Then champ = i + 10 Exit Do End If Next MsgBox "jour inconnu" Loop 'MsgBox champ ' je l'ai laissé là si tu veux vérifier .... If champ <= 14 Then TriToursGardeSem champ Else ImpressionSamedi End If End Sub

---

Te reste à ajouter un paramètre champ à ta procédure TriToursGardeSem

Merci pour les réponses.
L'erreur vient en fait du problème soulevé par Nad-Dan.

Je m'en suis aperçu un peu après avoir posté.

Entre temps, je suis aussi passé par la listbox.

Voilà donc mon problème résolu et merci pour vos contributions