Menu

Macro VBA pour supprimer les feuilles ? [Résolu]

- - Dernière réponse :  jacksa3da - 7 avril 2019 à 19:07
bonjour

j'ai réalisé une macro qui actualise les données d'un classeur dans un feuille "source" et "recap"
a la fin de la macro je veux bien rajouter un code pour supprimer toutes les feuilles sauf la feuille "source" et la feuille "recap " qui contiennent les données récupérée.

merci
Afficher la suite 

Votre réponse

1 réponse

Messages postés
5966
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 avril 2019
417
0
Merci
bonjour,

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

Merci beaucoup! ça marche trés bien
Commenter la réponse de cs_Le Pivert