J'ai ce code pour supprimer les feuilles que j'ai sélectionnées.
Code:
Sub Supprime_Onglets_Sel()
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
Mais je voudrais exclure des onglets que je risque de sélectionner par inadvertance (exemple feuille Param et feuille Archive qui ne doivent jamais être supprimées).
Re : Supprimer des feulles sélectionnées en VBA en excluant des onglets
Bonjour Michel,
peut être avec une boucle, nom des feuilles à exclure à adapter
Code:
Option Explicit
Sub test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWindow.SelectedSheets
If ws.Name <> "Feuil1" And ws.Name <> "Feuil2" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub