VBA macro supression dernières lignes Résolu/Fermé

Question

Bonjour, 


j'aimerais savoir comment écrire une macro excel pour:

-séléctionner une plage de la première ligne vide à la fin de mes données jusqu'à la 65536ème ligne (soit jusqu'à la limite de lignes excel)

-supprimer ces lignes



Merci d'avance!

chossette9 · Answer

Bonjour, 

pour rappel : 65536 est le nombre maximal de lignes sous Excel 2003 et inférieur. En 2007 et 2010, la limite est passée à 1048576.

De plus, si ces lignes sont vides, pourquoi veux-tu les supprimer ? Ne parlerais-tu pas plutôt de les masquer ?

Cordialement.

pijaku · Answer

Bonjour,   
Pour être sur de la denière ligne selon version excel (> ou < 2007) :   

!!!! Attention ce code contient un Delete   
!!!! A tester sur une copie du classeur original!!!!   

A adapter :  
- le "A" dans DrLig = .Range("A" & Rows.Count).End(xlUp).Row + 1   
pour déterminer la "colonne la + longue"   
- le nom de la feuille dans : With Sheets("Feuil1") 

Sub SupprLignvides()   
Dim DrLig As Long   

With Sheets("Feuil1")   
    '!!! Pour déterminer la première ligne vide on se base sur la colonne A   
    DrLig = .Range("A" & Rows.Count).End(xlUp).Row + 1 'adapter "A"   
    .Rows(DrLig & ":" & Rows.Count).Delete   
End With   
End Sub
Cordialement,   
Franck P

VBA macro supression dernières lignes

2 réponses

Discussions similaires