bjr je suis un developpeur debutant et j'ai un probléme avc ce code
le probléme c que quand je l'execute il n'affiche le resultat que si (case else)
sinn il n'affiche rien aider moi svp voila le code


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim N As Integer
        Dim p As String
        N = CStr(TextN.Text)
        Select Case N
            Case 1
                p = ("Lundi")
            Case 2
                p = ("Mardi")
            Case 3
                p = ("Mercredi")
            Case 4
                p = ("Jeudi")
            Case 5
                p = ("Vendredi")
            Case 6
                p = ("Samedi")
            Case 7
                p = ("dimanche")
            Case Else
                p = ("Entrer un numero entre 1 et 7")
                TextP.Text = p
        End Select


le but du programme c de taper un numero et afficher le jour associé par exemlpe 1=lundi 2=mardi