Macro pour Supprimer toutes les feuilles de calcul vides du classeur, Excel vba

De nombreux classeurs contiennent du ballast inutile sous la forme de feuilles de calcul vides. La macro suivante recherche dans le classeur actif les feuilles de calcul vides et les supprime.

Sub Supprimertouteslesfeuilles()
Dim i As Long
Application.DisplayAlerts = False
On Error Resume Next
For i = ActiveWorkbook.Sheets.Count to 1 Step -1
Sheets(i).Activate
If ActiveCell.SpecialCells(xlLastCell).Address = _
"$A$1" _
Then Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

Commentaires

Vous pouvez utiliser la propriété Count, que vous appliquez à l’objet de collection Sheets, pour déterminer le nombre de feuilles de calcul dans le classeur. En fonction du nombre déterminé, vous créez votre boucle For Next. Dans la boucle, activez la feuille de calcul et vérifiez si la méthode SpecialCells avec la constante xlLastCell renvoie l’adresse de cellule A1. Dans ce cas, vous pouvez supposer qu’aucune donnée n’a été saisie dans la feuille de calcul.
Supprimez ces feuilles de calcul à l’aide de la méthode Delete.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x