Supprimer une feuille contenant un mot précis

Bonsoir,

Je souhaite supprimer les feuilles dont le titre contient un mot précis.

Le mot à rechercher n'est pas toujours au même endroit dans le titre (pas toujours au début).

Est ce possible de faire ça avec un macro Excel.

Dans l'attente de votre réponse.

Bonsoir,

L'avantage avec une macro ... c'est qu'elle peut faire .. à peu près ... tout ce que tu peux avoir en tête ...

Tu dis que : Le mot à rechercher n'est pas toujours au même endroit dans le titre ...

D'accord ...

Mais tu devrais surtout répondre à cette question :

Où se trouve donc le Titre dans chaque Feuille ...?

Quand je parle de titre je parle du titre de l'onglet.

La barre en bas d'Excel...

Merci pour la précision ...

A tester ta macro ...

Sub SuppFeuilles()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ' A Adapter pour ton Mot Précis ''''''''''''
        If InStr(1, ws.Name, "MotPrécis") Then ws.Delete
    Next ws
End Sub

P.S. Veux-tu conserver ou pas les messages de Microsoft ... Application.DisplayAlerts = False

Merci beaucoup cela fonctionne parfaitement.

Bat_97140 a écrit :

Merci beaucoup cela fonctionne parfaitement.

Content que cela puisse t'aider ...

Bonjour,

Je vous remercie encore pour cette superbe solution.

Étant un grand perfectionniste je me demande comment adapté cette solution mais en masquant les onglets plutôt que de les supprimer (solution moins radicale ).

Dans un second temps j'aimerais pouvoir réafficher tout les onglets masqués via un bouton.

Bonjour,

Puisque tu es un perfectionniste ... tu dois savoir qu'il existe deux façons de masquer des feuilles ...

1. La première permet à l'utilisateur avec un clic droit de constater qu'il existe des feuilles masquées ...

2. La seconde ne permet pas de voir qu'il existe des feuilles masquées ...

Je dirais plutôt que la première méthode correspond a ce que je recherche.

Y-a-t-il une grande différence entre ces deux méthodes en terme de script pur ?

Comme expliqué ... la véritable différence est pour l'utilisateur ...

Sub CacherFeuilles()
Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ' A Adapter pour ton Mot Précis ''''''''''''
        If InStr(1, ws.Name, "MotPrécis") Then ws.Visible = xlSheetHidden
    Next ws
End Sub

En espèrant que cela te convienne ...