Astuces Excel
  1. Astuces Excel
  3. Supprimez les 5 premières lignes de chaque feuille de calcul dans un classur s'ils ne contiennent aucune valeur
Intereting Posts
excel = SIN (erreur MOD ($ B5; 23) / 23 * 2 * PI ()) Python – Utilisation de win32com.client pour formater une gamme de cellules Excell sous le tableau Le packageage ssis ne s'exécute pas seul à travers des servers sql MISE À JOUR des noms de regroupement délimités par l'image et l'excel Les nœuds de la hiérarchie Smartart – ne peuvent remplir qu'une seule image de text de chaque nœud Copier / Insérer des données d'une table à l'autre Qlikview – ajoute des données à Excel Commande Getfolder par nom de file Existe-t-il un moyen de coder pour amener Windows à changer d'user? Impossible d'ouvrir les classurs associés après la sélection déroulante VBA – vlookup est en cours d'exécution pour l'erreur d'exécution '13' VBA – Excel: mesure des valeurs de filter en boucle Annuler la fonction de modification dans Excel lors de l'utilisation de VBA dans le classur Remplir automatiquement un text spécifique dans une gamme Excel 201 Empêcher l'user d'arrêter une macro (Excel VBA)

Supprimez les 5 premières lignes de chaque feuille de calcul dans un classur s'ils ne contiennent aucune valeur

J'essaie de supprimer toutes les 5 premières lignes de chaque feuille de calcul si elles ne contiennent aucune valeur dans toutes les colonnes. Ce programme sera exécuté, mais uniquement sur la feuille de travail active. Y at-il quelque chose que j'ai manqué? 

Sub DeleteFirst5Rows() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets On Error Resume Next Rows("1:5").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Next ws End Sub

C'est le code mis à jour, fonctionné parfaitement. Merci à tous. 

 Sub DeleteFirst5Rows() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If Application.CountA(ws.Range("1:5")) = 0 Then ws.Range("1:5").EntireRow.Delete Next ws End Sub