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

[MJ13]

Bonjour à tous

J'ai ce code pour supprimer les feuilles que j'ai sélectionnées.

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]

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

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
@+

 

[Si...]

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

salut

comment sélectionnes-tu les feuilles ? C'est peut-être là qu'il faut agir ?

 

[MJ13]

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 .