macro VBA pour supprimer les feuilles ? Résolu

Question

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

cs_Le Pivert · Answer

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

Macro VBA pour supprimer les feuilles ?

1 réponse

Votre réponse

Discussions similaires