Discussion :

[Zak Blayde]

Bonjour,

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
 
sub truc
 
  Select Case ActiveCell.Value
        Case "bla"
            ActiveCell.Offset(rowOffset:=0, columnOffset:=2).Activate
                With Selection.Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=plage1"
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
        Case "bip"
            ActiveCell.Offset(rowOffset:=0, columnOffset:=2).Activate
                With Selection.Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=plage2"
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
    End Select
End Sub

Je ne comprends pas pourquoi Excel me dit

Case sans Select Case

en surlignant le deuxième Case

Merci de m'aider.

[Invité]

Bonjour

Il te manque les deux

Code :

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

End With

Starec

[Zak Blayde]

T_T
A force de copier coller, j'ai coupé mes end...