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

MJ13 · 24 Octobre 2012

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 · 24 Octobre 2012

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

Si... · 24 Octobre 2012

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 · 24 Octobre 2012

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 .

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

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires