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 Sub

3. 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 :

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 ?