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