Select Case variable

Bonjour,


voila je me demandais si c'est possible de faire un select case avec un nom de variable qui reprendrait plusieurs mots
par exemple au lieu de faire

Code:

---

1 2 3

Select Case ws.Name Case "chien", "chat", "lapin"

---

faire

Code:

---

1 2 3 4

Animaux = "chien, chat, lapin" Select Case ws.Name Case Animaux

---

ws.Name c'est le nom d'une feuille
j'ai essayé en mettant des guillemets un peu partout mais ça a pas l'air de marcher

voila voila

Code:

---

1 2 3 4

Animaux = "chien, chat, lapin" Select Case InStr(Animaux, Ws.Name) > 0 Case True: Debug.Print Ws.Name End Select

---

Ou bien

Code:

---

1 2 3 4

Animaux = "chien, chat, lapin" Select Case InStr(Animaux, Ws.Name) Case Is > 0: Debug.Print Ws.Name End Select

---

Bonjour, bonjour !

Une autre voie : If IsNumeric(Application.Match(Ws.Name, Split(Animaux, ", "), 0)) Then …

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, …

Etant donné que j'ai plusieurs listes dont les données doivent etre traitées différement je pense plutot partir sur la solution de Marc-L (avec des if et elseif)


Merci a vous !