Comment supprimer les feuilles vides d’un Classeur Excel
Supposons que vous disposiez d’un classeur volumineux comportant plusieurs feuilles, mais que certaines d’entre elles soient vides, sans aucun contenu. Afin de rendre le classeur plus professionnel et formel, vous souhaitez supprimer ces feuilles vierges. Plutôt que de les supprimer une par une, ce guide présente des méthodes permettant de supprimer rapidement toutes les feuilles vides.
Supprimer toutes les feuilles vides à l’aide de VBA
Supprimer toutes les feuilles vides à l’aide de Kutools pour Excel 
Supprimer toutes les feuilles vides à l’aide de VBA
Je vous propose ici une macro VBA conçue pour supprimer rapidement toutes les feuilles vides de votre classeur ouvert.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans la fenêtre du nouveau Module ouverte.
VBA : Supprimez 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 lancer la macro VBA. Une boîte de dialogue s’affiche alors pour vous demander 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 indiquant le nombre de feuilles supprimées apparaît. Cliquez sur OK pour la fermer ; toutes les feuilles vides seront alors supprimées.
Supprimer toutes les feuilles vides à l’aide de Kutools pour Excel
Pour les débutants sous Excel, l’utilisation de VBA peut sembler un peu complexe. Heureusement, grâce à la fonction Kutools pour Excel’s Supprimer les feuilles vides, vous pouvez effacer toutes les feuilles vides d’un classeur en seulement trois clics !
1. Ouvrez le classeur dont vous souhaitez supprimer les feuilles vides, puis cliquez sur KUTOOLS PLUS > Feuille de calcul > Supprimer les feuilles vides. Voir la capture d’écran :
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Articles associés :
- 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 le texte entre crochets ou parenthèses dans Excel ?
- Comment supprimer les formes de ligne dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels