Comment supprimer une feuille si son nom contient un texte spécifique dans un classeur ?

Supposons que vous ayez un classeur contenant plusieurs feuilles de calcul, et maintenant, vous souhaitez supprimer les feuilles en fonction des noms d'onglets. Par exemple, si le nom de la feuille contient un texte spécifique « KTE », alors supprimez-la, comme illustré dans la capture d'écran ci-dessous. Comment pourriez-vous supprimer immédiatement les feuilles dont le nom contient un texte spécifique sans avoir à les supprimer une par une ?

Supprimer des feuilles si leur nom contient un texte spécifique avec un code VBA

Supprimer des feuilles si leur nom contient un texte spécifique avec un code VBA

Ici, je vais créer un code VBA pour vous permettre de supprimer des feuilles en fonction de leur nom, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du module.

Code VBA : Supprimer des feuilles si leur nom contient un texte spécifique

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

3. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler d'entrer le texte spécifique en fonction duquel vous souhaitez supprimer l'onglet de la feuille, voir la capture d'écran :

4. Puis cliquez sur OK, toutes les feuilles dont le nom contient le texte spécifié « KTE » ont été supprimées en une seule fois. Voir la capture d'écran :

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !