VBA macro supression dernières lignes
Résolu/Fermé
fapfapfap
-
15 févr. 2012 à 11:53
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 15 févr. 2012 à 14:20
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 15 févr. 2012 à 14:20
A voir également:
- Vba supprimer lignes jusqu'à la fin
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Aller à la ligne excel - Guide
- Fichier impossible à supprimer - Guide
- Supprimer edge - Guide
2 réponses
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 306
15 févr. 2012 à 11:56
15 févr. 2012 à 11:56
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.
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
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
Modifié par pijaku le 15/02/2012 à 12:30
Modifié par pijaku le 15/02/2012 à 12:30
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")
Cordialement,
Franck P
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
15 févr. 2012 à 14:20
15 févr. 2012 à 14:20
De rien.
A+
A+
15 févr. 2012 à 11:58
en fait ces lignes sont vides mais tout de même formatées (bordures par exemple)
J'aimerais donc simplement m'en débarasser!
Merci!