VBA supprimer tous les onglets sauf "X", "Y", "Z"

[setsix]

[Resolu]VBA supprimer tous les onglets sauf "X", "Y", "Z"

Bonjour

Je pense que tout est dans le titre.

je cherche à écrire en VBA:

supprimer tous les onglets sauf les onglets "X", "Y" et "Z".

Merci d'avance.

 

[Paritec]

Re : VBA supprimer tous les onglets sauf "X", "Y", "Z"

Bonjour Setsix le forum,

Sub retirer()
    Dim ws As Worksheet
    For Each ws In Worksheets
        Application.DisplayAlerts = False
        If ws.Name <> "X" And ws.Name <> "Z" And ws.Name <> "Y" Then ws.Delete
    Next
    Application.DisplayAlerts = True
End Sub

a+
Papou

EDIT Salut Jean Marcel Hasco moi j'avais mis Or a la place de And !!! enfin bref

 

[Guest]

Re : VBA supprimer tous les onglets sauf "X", "Y", "Z"

Bonjour,

Une technique parmi d'autres, à voir suivant le cas

Sub SupprimerFeuilles()
    Dim sh As Worksheet
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If InStr(1, "Feuil2,Feuil5,Feuil10", sh.Name) = 0 Then sh.Delete
    Next sh
    Application.DisplayAlerts = True
End Sub

Ici, Feuil1 (contenu dans la chaine de caractère des noms) sera également préservée.

Autre condition (Feuil1 est également supprimée):

If IsError(Application.Match(sh.Name, Array("Feuil10", "Feuil2", "Feuil5"), 0)) Then sh.Delete

A+

 

[setsix]

Re : VBA supprimer tous les onglets sauf "X", "Y", "Z"

Merci à tous


Toutes les soluces marchent impec