Discussion :

[grimgrim]

Bonjour,

Est il possible de mettre une condition ET dans une instruction SELECT CASE au niveau de CASE ?

Comment peut on faire ?

Merci pour vos retours

[Thautheme]

Bonsoir Grimgrim, bonsoir le forum,

Normalement oui en séparant par une virgule, du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
For I=1 To 100
   Select Case Cells(I,1).Value
      Case "Jean","Antoine","Jacques"
         MsgBox "Jean, Antoine ou Jacques"
      Case "Pierre", "Paul"
         MsgBox "Pierre ou Paul"
      Case Else
         MsgBox "personne"
   End Select
Next I

[joe.levrai]

Bonjour,

sauf erreur, ta proposition Thautheme est plutôt un OR au sein d'un CASE ?

pour le AND, j'utilise un test de type TRUE dans le Select, comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub toto()
c = "jean"
d = "pierre"
    Select Case True
        Case c = "jean" And d = "pierre"
            MsgBox "ok"
        Case Else
            MsgBox "ko"
    End Select
End Sub

mais le demandeur ayant clôturé la discussion, peut-être voulait-il un OR, pour lequel tu as parfaitement répondu