SELECT CASE fonctionne pas?

Voila, un SELECT CASE bien simple:

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
28
29
30
31
32
33
34
35
36
For x = 0 To 6
 
    Select Case JT
        Case JT = "M", "S", "N"
            ActiveCell.Offset(0, 1).Value = CDbl(8.25)
            ActiveCell.Offset(0, 15).Value = 1
            ActiveCell.Offset(0, 16).Value = 1
            ActiveCell.Offset(0, 17).Value = 1
            ActiveCell.Offset(0, 19).Value = 1
            ActiveCell.Offset(0, 21).Value = 1
            ActiveCell.Offset(0, 23).Value = 1
            ActiveCell.Offset(0, 24).Value = 1
            If ActiveCell.Offset(0, -1).Value = "DIMANCHE" Or ActiveCell.Offset(0, -1).Value = "SAMEDI" Then
                ActiveCell.Offset(0, 15).Value = 3
                ActiveCell.Offset(0, 16).Value = 3
            End If
 
        Case JT = "CP"
            ActiveCell.Offset(0, 13).Value = 1
 
        Case JT = "MAL"
            ActiveCell.Offset(0, 21).Value = CDbl(8.25)
 
        Case JT = "R"
            ActiveCell.Offset(0, 1).Value = CDbl(0)
 
        Case Else
        ActiveCell.Offset(0.2).Value = "Inconnue"
 
    End Select
 
 
ActiveCell.Offset(1, 0).Select
JT = ActiveCell.Value
 
Next

Hors les testes ne fonctionne pas bien que Jt soit identique à "M","S","N", etc indication en mode espion?

Quelqu'un peu m'éclairer

Bonjour,
Comme ceci, c'est mieux

Code:

Case "M", "S", "N"

mais attention à la casse, je préfère
Code:

1 2 Select Case LCase(JT) Case "m", "s", "n"

Bonjour,

le select case fonctionne très bien, il s'agit simplement d'une mauvaise syntaxe de ta part

la syntaxe correcte du Select Case doit etre la suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 Select Case JT Case "M", "S", "N" Case "CP" Case "MAL" Case "R" Case Else End Select
http://heureuxoli.developpez.com/off...vba-all/#L11-C