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