Discussion :

[homme6301]

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

[Philippe Tulliez]

Bonjour,
Comme ceci, c'est mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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