Suppression feuilles sous conditon

[bambi]

Bonsoir à tous

Je cherche une macro pour supprimer toutes les feuilles d'un classeur dont le nom commence par une certaine chaine de caractère.

Exemple: Supprimer toutes les feuilles dont le nom commence par "Livres N°"

Merci d'avance de vos suggestions

 

[job75]

Re : Suppression feuilles sous conditon

Bonsoir bambi,

Dans un Module :

Sub SupFeuilles()
Dim s As Object
Application.DisplayAlerts = False
On Error Resume Next
For Each s In Sheets
  If s.Name Like "Livres N°*" Then s.Delete
Next
End Sub

A+

 

[job75]

Re : Suppression feuilles sous conditon

Re,

Une variante avec des messages pour comprendre :

Sub SupFeuilles()
Dim s As Object
Application.DisplayAlerts = False
On Error Resume Next
For Each s In Sheets
  If s.Name Like "Livres N°*" Then
    If Sheets.Count > 1 Then s.Delete Else MsgBox "Il doit rester au moins une feuille"
  End If
Next
If Err Then MsgBox "Oter la protection du classeur", 48
End Sub

A+

 

[bambi]

Re : Suppression feuilles sous conditon

Un grand merci Job75, c'est exactement ce qu'il me fallait.
En fait, j'ai juste rajouter une MsgBox de confirmation de suppression
Merci encore et bonne année