Macro VBA pour supprimer les feuilles ?
Résolu/Fermé
A voir également:
- Macro VBA pour supprimer les feuilles ?
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Supprimer les cookies - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
6 avril 2019 à 19:51
6 avril 2019 à 19:51
bonjour,
comme ceci:
comme ceci:
Sub supprimer()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Application.DisplayAlerts = False
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = "Sommaire" Or Ws.Name = "Modèle" Then 'adapter nom des feuilles à ne pas supprimer
Else
Ws.Delete
End If
Next Ws
Application.DisplayAlerts = True
End Sub
7 avril 2019 à 19:07