Comment supprimer une feuille de calcul en fonction de la valeur d'une cellule dans Excel ?
Si vous avez plusieurs feuilles de calcul dans un classeur et que vous devez supprimer certaines feuilles en fonction du contenu d'une cellule spécifique, le VBA peut vous aider à automatiser cette tâche. Par exemple, vous pourriez vouloir supprimer toutes les feuilles où la cellule A1 contient un mot ou une phrase particulière. Ce guide va vous montrer comment utiliser le VBA pour identifier et supprimer rapidement ces feuilles dans Excel.
Supprimer une feuille de calcul en fonction de la valeur d'une cellule avec du code VBA
Supprimer une feuille de calcul en fonction de la valeur d'une cellule avec du code VBA
Ici, je vais vous présenter un code qui permet de supprimer toutes les feuilles où une cellule spécifique contient une certaine valeur. Veuillez suivre les étapes ci-dessous :
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du Module.
Code VBA : Supprimer une feuille de calcul en fonction de la valeur d'une cellule :
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub
Remarque : Dans le code ci-dessus, A1 est la cellule spécifique qui contient le texte particulier sur lequel vous souhaitez baser la suppression des feuilles.
3. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler d'entrer la valeur spécifique sur laquelle vous souhaitez baser la suppression des feuilles, voir capture d'écran :
4. Cliquez ensuite sur le bouton OK, et toutes les feuilles où la cellule A1 contient le texte KTE seront supprimées immédiatement. Voir capture d'écran :
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 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
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !