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:
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activer 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 réduit des centaines de clics de souris chaque jour!