Comment vérifier rapidement si une feuille est vide dans Excel?
S'il y a des feuilles vides dans un énorme classeur, comment pouvez-vous vérifier rapidement si une feuille est vide dans le classeur, puis les supprimer? Dans Excel, il existe une fonction intégrée pour déterminer si une feuille est vide ou non, mais ici, je vous présente un code VBA pour vérifier si une feuille est vide.
Vérifier si une feuille est vide avec VBA
Vérifier si une feuille est vide avec VBA
Pour vérifier si une feuille est vide, vous pouvez utiliser le code de macro ci-dessous pour déterminer rapidement si une feuille est vierge.
1. Activez une feuille dont vous souhaitez vérifier qu'elle est vide, appuyez sur Alt + F11 clé pour ouvrir Microsoft Visual Basic pour applications fenêtre, et cliquez sur insérer > Module pour créer un nouveau Module.
2. Dans le script vide, collez-y le code de macro ci-dessous. Voir la capture d'écran:
VBA: vérifier si une feuille est vide
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. Enregistrez le code et appuyez sur F5 pour exécuter le code, et une boîte de dialogue apparaîtra pour vous rappeler que la feuille est vide ou non.
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!