Caractère joker comme en SQL (%) mais en VBA

Bonjour,

Je voudrais effacer, après avoir ajouter des feuilles, toutes les feuilles de calcul qui se nomme Feuil1, Feuil2 ...

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9

Application.DisplayAlerts = False For Each WS In cl2.Sheets For I = 1 To cl2.Sheets.Count If Sheets(I).Name = "Feuil1" Or Sheets(I).Name = "Feuil2" Or Sheets(I).Name = "Feuil3" Then _ Sheets(I).Delete Next I Next WS Application.DisplayAlerts = True

---

Mais à la palce des mettres des "OR" je voudrais mettre une seul condition.
En SQL il y a le joker %. Par exemple Feuil%, signifie tout ce qui commence par Feuil.

Merci de votre aide.
Benjycool

bonjour

de cette manière :

Code:

---

Sheets(i).name = "Feuil*" ne fonctionne pas

---

tu as neamoins 2 solutions :

Code:

---

left(sheets(i).name,5) = "Feuil"

---

ou regarde la fonction Like, bien que je ne l'utilise pas, je sais qu'elle existe et pourrait t'être utile..

les caracteres de substitution sont : * pour une chaîne de x caracteres
----------------------------------- ? pour un caractère

Ok merci bien.

Benjycool

Bonjour,

C'est bien la fonction Like (que te signale wilfried_42) qu'il faut utiliser.
J'ajoute aux caractères génériques qu'il t'a déjà mentionnés, un "joker" auquel tu devrais également t'intéresser :
# , qui remplace tout caractère numérique