Supprimer des feulles sélectionnées en VBA en excluant des onglets

MJ13

XLDnaute Barbatruc
Bonjour à tous

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).

Merci d'avance :).
 

Pierrot93

XLDnaute Barbatruc
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

bonne journée
@+
 

MJ13

XLDnaute Barbatruc
Re : Supprimer des feulles sélectionnées en VBA en excluant des onglets

Bonjour Pierrot

Merci beaucoup pour ce joli code :).

C'est quand même plus facile quand on a ton savoir faire mais j'avais fait des essais peu concluant.

Je l'engrange.

Bonne journée :).
 

Discussions similaires

Réponses
2
Affichages
163

Statistiques des forums

Discussions
312 894
Messages
2 093 379
Membres
105 712
dernier inscrit
CARLO 82