Conditions ET avec select case

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

Bonsoir Grimgrim, bonsoir le forum,

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

Code:

---

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

---

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:

---

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