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

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

Privacy & Transparency

Privacy & Transparency