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.
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels