Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Pour les supprimer sans les sélectionner :
Sub test() Dim sh As Worksheet For Each sh In Sheets If sh.Name <> "Feuil1" Then sh.Delete Next sh End Sub
Cordialement. Daniel "delphineR" a écrit dans le message de news:
Bonjour,
j'essaye de sélectionner la Feuil2 et les autres feuilles, sauf la Feuil1 sachant que les autres feuilles peuvent avoir des noms divers.
Et dans le but de les supprimer
D'avance merci pour votre aide
Bonjour.
Pour les supprimer sans les sélectionner :
Sub test()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Name <> "Feuil1" Then sh.Delete
Next sh
End Sub
Cordialement.
Daniel
"delphineR" <delphineR@discussions.microsoft.com> a écrit dans le message de
news: B0A51E54-B0B7-44B0-806C-185E83F24889@microsoft.com...
Bonjour,
j'essaye de sélectionner la Feuil2 et les autres feuilles, sauf la Feuil1
sachant que les autres feuilles peuvent avoir des noms divers.