Macros pour supprimer toutes les Feuilles vides du classeur ,Excel VBA

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

Sub toutesfeuillevidessupprimees ()

Dim i As Integer

  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

 

Vous pouvez utiliser la propriété Count, que vous appliquez à l’objet de collection Sheets, pour déterminer le nombre de feuilles de tableau qui se trouvent dans le classeur. Créez votre boucle For Next en fonction du nombre que vous avez déterminé. Activez la feuille de calcul dans la boucle et vérifiez si la méthode Special Cel ls 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 tables à l’aide de la méthode Delete.

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

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

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