Comment supprimer une feuille spécifique si elle existe dans le classeur?

Comment pouvez-vous supprimer une feuille de calcul spécifique si elle existe dans un classeur? Normalement, vous devez le trouver et le vérifier s'il existe, puis le supprimer manuellement. Ici, je vais parler d'un moyen simple de supprimer directement la feuille de calcul spécifiée si elle existe dans le fichier Excel.

Supprimer une feuille de calcul spécifique si elle existe dans un classeur avec le code VBA

---

Supprimer une feuille de calcul spécifique si elle existe dans un classeur avec le code VBA

Le code VBA suivant peut vous aider à supprimer la feuille de calcul spécifiée si elle existe dans le classeur, procédez comme suit:

1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: supprimer une feuille de calcul spécifique si elle existe dans le classeur

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, une boîte de dialogue s'affiche pour vous rappeler de saisir le nom de la feuille que vous souhaitez vérifier s'il existe, voir capture d'écran:

4. Et puis cliquez OK bouton:

(1.) Si la feuille existe, elle sera supprimée immédiatement, voir capture d'écran:

(2.) Si la feuille n'existe pas, une boîte de dialogue apparaîtra pour vous rappeler la capture d'écran suivante: