Supprimer onglet en fonction du nom

[Tex]

Bonjour,

Je souhaite avoir une macro me permettant de supprimer tous les onglets/feuilles présents dans le classeur si ces derniers contiennent le mot "feuille".

Merci pour votre aide.

J'ai trouvé un bout de code sur ce forum, si ça peut aider :

Sheets('Feuil1').Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

 

[DoubleZero]

Re : Supprimer onglet en fonction du nom

Bonjour, Tex, le Forum,

Une suggestion :

Sub Onglet_supprimer_si_nommé_Feuil()
Application.DisplayAlerts = False
For s = Sheets.Count To 1 Step -1
If Sheets(s).Name Like "Feuil*" Then Sheets(s).Delete
Next s
Application.DisplayAlerts = True
End Sub

A bientôt

 

[Tex]

Re : Supprimer onglet en fonction du nom

Merci beaucoup, ça fonctionne.
a+