XL 2019 Supprimer millions de lignes vide après un tableau dans une feuille excel

Guillaumeg3 · 28 Février 2022

Bonjour à tous,

Je cherche un petit code VBA ou autre astuce pour supprimer le millions de lignes dans une de mes feuilles excel.
J'ai un tableau de A1 à DN10512 mais impossible de naviguer dedans proprement car la fin de ma feuille est à la ligne 1M+

Je vous remercie pour votre aide

patricktoulon · 28 Février 2022

Bonjour
si t ta scroll descend jusque là c'est que ton tableau s’arrête là c'est tout
tu dois avoir une cellule avec une formule renvoyant rien ou au minimum un caractère espace

essaie ça en changeant le nom de la feuil pour que ca corresponde chez toi
et dis moi quelle est la cellule qui t'ai donné

VB:

Sub test()
MsgBox Feuil1.Range("a1:Dn" & Rows.Count).Find("*", , , , , xlPrevious).Address
End Sub

Guillaumeg3 · 28 Février 2022

Bonjour Patrick

Merci pour ton message, le code me donne $AC$339
Cellule vide au passage

i20100_ · 9 Mars 2022

Bonjour,

à tester avec la macro ou en exécutant manuellement chaque ligne du code suivant,

VB:

Sub test()
    Columns("DN:XFD").Delete Shift:=xlToLeft
    Rows("10513:1048576").Delete Shift:=xlUp
    Application.Goto Range("A1")
    ThisWorkbook.Save
End Sub

Staple1600 · 9 Mars 2022

Bonsoir le fil

Si ce qui est dit dans le message#1 est strictement vrai, alors monte le son

VB:

Sub Killing_Me_Softly()
Dim Bazinga
Bazinga = ActiveSheet.Range("A1:DN10512").Value
Application.ScreenUpdating = False
ActiveSheet.Cells.Clear
Cells(1).Resize(UBound(Bazinga, 1), UBound(Bazinga, 2)).Value = Bazinga
End Sub

Katido · 10 Mars 2022

Staple1600 à dit:
Bonsoir le fil

Si ce qui est dit dans le message#1 est strictement vrai, alors monte le son

VB:

Sub Killing_Me_Softly() Dim Bazinga Bazinga = ActiveSheet.Range("A1:DN10512").Value Application.ScreenUpdating = False ActiveSheet.Cells.Clear Cells(1).Resize(UBound(Bazinga, 1), UBound(Bazinga, 2)).Value = Bazinga End Sub

Attention, les formats seront perdus ! Mais ce n'est peut-être pas vital
Une autre solution basique sans Vba :
1) crée une nouvelle feuille (provisoire)
2) fais un copier/coller de la seule plage qui t'intéresse A1N10512 dans cette nouvelle feuille
3) supprime toutes les cellules de la première feuille
4) recopie la plage de la feuille provisoire
5) supprime la feuille provisoire

Katido · 10 Mars 2022

patricktoulon à dit:
Bonjour
si t ta scroll descend jusque là c'est que ton tableau s’arrête là c'est tout
tu dois avoir une cellule avec une formule renvoyant rien ou au minimum un caractère espace

essaie ça en changeant le nom de la feuil pour que ca corresponde chez toi
et dis moi quelle est la cellule qui t'ai donné

VB:

Sub test() MsgBox Feuil1.Range("a1:Dn" & Rows.Count).Find("*", , , , , xlPrevious).Address End Sub

La cellule qui contient le loup caché est plus bas.
Faire plutôt :

MsgBox activesheet.cells.find("*", , , ,xlbyrows, xlprevious).Address

pour chercher dans toute la feuille
Le xlByRows permet de trouver la cellule dans la ligne la plus basse qui contient un truc

Astragor · 10 Mars 2022

Pour moi la solution la plus rapide est de filtrer ton tableau sur le critère vide d'une des colonne (n"importe laquelle puisque si la ligne est vide toutes le sont et ensuite tu vire toute les lignes.
Je l'ai eu fait par le passer j'ai plus le code vba en tête mais en faisant enregistrer une macro tu aura ton code en 30s, il ne restera plus qu'a faire quelques petites adaptations

Staple1600 · 10 Mars 2022

Bonsoir le fil

Katido à dit:
Attention, les formats seront perdus ! Mais ce n'est peut-être pas vital
Une autre solution basique sans Vba :
1) crée une nouvelle feuille (provisoire)
2) fais un copier/coller de la seule plage qui t'intéresse A1N10512 dans cette nouvelle feuille
3) supprime toutes les cellules de la première feuille
4) recopie la plage de la feuille provisoire
5) supprime la feuille provisoire

Moins mes classeurs contiennent de format, mieux ils se portent Une veille habitude.
Si on utilise le tableau comme un base de données, pas besoin de format
(je parle de bordures, de couleurs etc...)

Ce qu'il faut retenir avant tout dans ma réponse, c'est le nom de ma macro

Efgé · 10 Mars 2022

Bonjour à tous
Nous avons, il y a quelques temps, (2007 ça date) discuté de ce sujet avec l'ami Staple1600
Voir les post 13 à 17 de ce fil

Supprimer des lignes pas si simple...

Bonjour à tous, Bonjour le forum, Je suis en train de monter une requête avec MS QUERY (merci mromain:)) et quand je fusionne plusieurs fichiers en même temps Excel me prend toutes les lignes jusqu'à la derniere cellule qu'il reconnait (exemple : AX 27589) alors que j'ai seulement 9 lignes...

www.excel-downloads.com

Cordialement

Staple1600 · 10 Mars 2022

Bonjour Efgé

On pourra noter que je donnais en 2014 des petits noms à mes macros

NB: Pourquoi tu dis 2007 ?

Efgé · 11 Mars 2022

Bonjour au fil, Salut Staple1600

Staple1600 à dit:
Pourquoi tu dis 2007 ?

Je ne sais pas, j'ma gouré

Cordialement

XL 2019 Supprimer millions de lignes vide après un tableau dans une feuille excel

Guillaumeg3

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Guillaumeg3

XLDnaute Junior

i20100_

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Katido

XLDnaute Occasionnel

Katido

XLDnaute Occasionnel

Astragor

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Supprimer des lignes pas si simple...

Staple1600

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Discussions similaires