Discussion :

[Benjycool]

Bonjour,

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

Voici le code

Code :

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

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

[wilfried_42]

bonjour

de cette manière :

Code :

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

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

tu as neamoins 2 solutions :

Code :

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

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

[Benjycool]

Ok merci bien.

Benjycool

[ucfoutu]

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