Voila, un SELECT CASE bien simple:

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
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