Discussion :

[Minise]

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 :

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

1
2
3
 
 Select Case ws.Name
Case "chien", "chat", "lapin"

faire

Code :

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

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

[mercatog]

Code :

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

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 :

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

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

[Marc-L]

Bonjour, bonjour !

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

______________________________________________________________________________________________________

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

______________________________________________________________________________________________________
Je suis Paris, …

[Minise]

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 !