Comment supprimer les feuilles vides d'un classeur Excel
Supposons que vous ayez un grand classeur avec plusieurs feuilles, mais qu'il y ait également des feuilles vides sans aucun contenu. Pour rendre le classeur plus professionnel et formel, vous souhaitez supprimer ces feuilles vierges du classeur. Au lieu de supprimer les feuilles vides une par une, ce guide présente des méthodes pour supprimer rapidement toutes les feuilles vierges.
Supprimer toutes les feuilles vierges à l'aide de VBA
Supprimer toutes les feuilles vierges à l'aide de Kutools pour Excel 
Supprimer toutes les feuilles vierges à l'aide de VBA
Je vais ici vous présenter un code VBA pour vous aider à supprimer rapidement toutes les feuilles vierges d'un classeur ouvert.
1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual for Basic Applications.
2. Cliquez sur Insérer > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre Module.
VBA : Supprimer les feuilles vides.
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub3. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter le VBA. Une boîte de dialogue apparaîtra vous demandant si vous souhaitez supprimer les feuilles vides. Cliquez sur Oui pour continuer ou sur Non pour annuler l'opération.
4. Après avoir cliqué sur Oui, une boîte de dialogue apparaîtra indiquant le nombre de feuilles supprimées. Cliquez sur OK pour la fermer, et toutes les feuilles vides seront supprimées.
Supprimer toutes les feuilles vierges à l'aide de Kutools pour Excel
Pour les débutants en Excel, utiliser VBA peut être une méthode quelque peu difficile à exécuter. Mais avec la fonction Supprimer les feuilles vierges de Kutools pour Excel, vous pouvez rapidement supprimer toutes les feuilles vides d'un classeur en trois clics de souris !
1. Activez le classeur dont vous souhaitez supprimer les feuilles vides, puis cliquez sur Kutools Plus > Feuille de calcul > Supprimer les feuilles vierges. Voir la capture d'écran :
Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
Articles connexes :
- Comment compter et supprimer les doublons d'une liste dans Excel ?
- Comment supprimer une chaîne après le n-ième caractère dans Excel ?
- Comment supprimer du texte entre crochets/parenthèses dans Excel ?
- Comment supprimer les formes de ligne dans Excel ?
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