Comment supprimer les feuilles vides d'un classeur Excel

Supposons que vous disposez d'un classeur volumineux avec plusieurs feuilles, mais que certaines d'entre elles sont vides et ne contiennent 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 permettant de 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

Ici, je présente un VBA pour vous aider à supprimer rapidement toutes les feuilles vierges d'un classeur ouvert.

1. presse Alt + F11 clés pour activer Microsoft Visual pour les applications de base fenêtre.

2. Cliquez insérer > Module, collez le code VBA ci-dessous dans le fichier nouvellement ouvert Module fenêtre.

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 Sub

3. appuie sur le F5 ou cliquez sur la Courir pour exécuter le VBA. Une boîte de dialogue apparaîtra vous demandant si vous souhaitez supprimer les feuilles vides. Cliquez sur Oui procéder ou Non pour annuler l'opération.

4. Après avoir cliqué Oui, une boîte de dialogue apparaît indiquant le nombre de feuilles supprimées. Cliquez sur OK pour le fermer, et toutes les feuilles vides seront supprimées.

Supprimer toutes les feuilles vierges à l'aide de Kutools pour Excel

Pour les débutants d'Excel, l'utilisation de VBA peut être une méthode quelque peu difficile à exécuter. Mais avec Kutools for Excel's Supprimer les feuilles de calcul vierges fonction, vous pouvez supprimer rapidement toutes les feuilles vides d'un classeur en trois clics de souris!

1. Activez le classeur dont vous souhaitez supprimer ses feuilles vides, puis cliquez sur Kutools Plus > Feuille > Supprimer les feuilles de calcul vierges. Voir la capture d'écran:

Articles connexes:

• Comment compter et supprimer les doublons d'une liste dans Excel?
• Comment supprimer la chaîne après le nième caractère dans Excel?
• Comment supprimer du texte entre crochets / parenthèses dans Excel?
• Comment supprimer des formes de ligne dans Excel?