Supprimer des lignes pas si simple...

P

PMO2

XLDnaute Accro

• 28 Mai 2014

• #2

Re : Supprimer des lignes pas si simple...

Bonjour,

Essayez le code suivant

Code:

Sub PlageDonnees()
Dim S As Worksheet
Dim R As Range
Dim LastRow&
Dim LastCol&
'--- Détermine la plage de données ---
Set S = ActiveSheet
Set R = S.Cells(S.Rows.Count, S.Columns.Count)
On Error Resume Next
LastRow& = S.Cells.Find(What:="?", After:=R, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol& = S.Cells.Find(What:="?", After:=R, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If Err <> 0 Then Exit Sub
On Error GoTo 0
Set R = S.Range(S.Cells(1, 1), S.Cells(LastRow&, LastCol&))
R.Copy
'--- Copie la plage de données dans une nouvelle feuille ---
Set S = Sheets.Add
S.Paste
Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Mai 2014

• #3

Re : Supprimer des lignes pas si simple...

Bonjour à tous,

en faisant un peu de nettoyage
ce n'était pas normal qu'un classeur qui ne contient pratiquement rien fasse plus de 900k

voir fichier joint


à+
Philippe

 

Pièces jointes

• 111.xlsx

  9.8 KB · Affichages: 36
• 111.xlsx

  9.8 KB · Affichages: 42
• 111.xlsx

  9.8 KB · Affichages: 45

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 28 Mai 2014

• #4

Re : Supprimer des lignes pas si simple...

Bonjour PMO2,

Merci bcp ca marche nickel 🙂 🙂 🙂

Bonne soirée

BlouBlou

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 28 Mai 2014

• #5

Re : Supprimer des lignes pas si simple...

Bonjour phlaurent55,

Comment as tu fait pour faire ce nettoyage ?

Merci

BlouBlou

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 28 Mai 2014

• #6

Re : Supprimer des lignes pas si simple...

Re le forum, re PMO2,

Ta macro marche nickel mais j'aurais voulu garder les données ainsi nettoyées sur la même feuille, c'est possible ?

Merci

BlouBlou

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 28 Mai 2014

• #7

Re : Supprimer des lignes pas si simple...

Ta macro marche nickel mais j'aurais voulu garder les données ainsi nettoyées sur la même feuille, c'est possible ?

Cliquez pour agrandir...

Apparemment non.
Pour contourner, il suffit de détruire la feuille et renommer la nouvelle feuille.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Mai 2014

• #8

Re : Supprimer des lignes pas si simple...

re,

PMO2 à dit:

Apparemment non.
Pour contourner, il suffit de détruire la feuille et renommer la nouvelle feuille.

Cliquez pour agrandir...

Bonjour phlaurent55,

Comment as tu fait pour faire ce nettoyage ?

Merci

BlouBlou

Cliquez pour agrandir...

j'ai tout simplement copier-coller les données dans une nouvelle feuille et supprimé la première

à+
Philippe

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 28 Mai 2014

• #9

Re : Supprimer des lignes pas si simple...

Bonsoir,
autre solution pour nettoyer :
faire Ctrl + fin puis Maj+Ctrl+ début , Maj + flèche bas jusqu'à la dernière ligne que l'on veut conserver et enfin Supp.
Il suffit ensuite d'enregistrer et de fermer le fichier.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Mai 2014

• #10

Re : Supprimer des lignes pas si simple...

Re

Jacou à dit:

Bonsoir,
autre solution pour nettoyer :
faire Ctrl + fin puis Maj+Ctrl+ début , Maj + flèche bas jusqu'à la dernière ligne que l'on veut conserver et enfin Supp.
Il suffit ensuite d'enregistrer et de fermer le fichier.

Cliquez pour agrandir...

c'est ce que j'avais tenté mais bizarrement, je retrouvais toujours AX 27589 comme étant la dernière ligne
...... peut-être à cause d'un caractère spécial dans une cellule ou une très petite image dans cette ligne

à+
Philippe

 

Vote positif 0 Vote négatif

J

Jacou

XLDnaute Impliqué

• 28 Mai 2014

• #11

Re : Supprimer des lignes pas si simple...

Autant pour moi, à la fin ce n'est pas Suppr qu'il faut faire, mais click droit sur la sélection et supprimer (ligne entière).
mais surtout il faut enregistrer et FERMER le fichier. Ce n'est qu'à ce moment là qu'à la réouverture on trouve la dernière cellule en AX17 (si on a gardé les 17 premières lignes). Sinon tant que l'on n'a pas fermé, on retrouve toujours AX27589 comme dernière cellule.
Bonne nuit

 

Dernière édition: 28 Mai 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Mai 2014

• #12

Re : Supprimer des lignes pas si simple...

Bonjour à tous

Ma contribution

Code:

Sub FaisLeVideEnMoiExcel()
Dim TheEnd&
TheEnd = Rows.Count
Rows(ActiveCell.Row & ":" & TheEnd).Delete
End Sub

Sélection de A9 puis lancement de la macro ci-dessus

Mes questions
Pourquoi cette AX27589 ?
D’où vient-il? Comment l'expliquer ?

NB: Jacou
Sélection de la ligne 9
CTRL+SHIFT+FLECHE BAS
Clic-droit sur entêtes Lignes -> Supprimer
suffit, non ?

EDITION: La version sans fioritures

Code:

Sub FaisLeVideEnMoiExcelbis()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub

 

Dernière édition: 29 Mai 2014

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 29 Mai 2014

• #13

Re : Supprimer des lignes pas si simple...

Bonjour à tous
Effectivement la simple suppression des lignes ne suffit pas.

VB:

Sub Test()
With ActiveSheet
    .Rows(.Cells(.Rows.Count, 1).End(3)(2).Row & ":" & .Rows.Count).Delete
    .UsedRange
End With
End Sub

Force Excel a recalculer sa plage(voir la barre de défilement verticale Avant / Après le code).

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Mai 2014

• #14

Re : Supprimer des lignes pas si simple...

Bonjour à tous


Efgé
Bah cela marchait pourtant (test OK sur le fichier exemple)
J'avais testé avec ceci pour m'en assurer avant et après suppression ligne

Code:

Sub t()
MsgBox ActiveSheet.UsedRange.Address
End Sub
Sub FaisLeVideEnMoiExcel()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 29 Mai 2014

• #15

Re : Supprimer des lignes pas si simple...

Re
Salut Staple, Cette fois ci j'ai l'explication 😀 :
En faisant le test 1 en premier on trouve bien la "mauvaise plage", normal.
Puis tu supprimes les lignes (tu noteras qu'a ce moment, la barre de défilement verticale n'as pas évoluée).
Ensuite tu refais le Test 1, là en utilisant UsedRange, tu force Excel a recalculer sa plage, la nouvelle plage est bien celle attendue, et c'est après la passage du second test que la barre de défilement retrouve une grandeur proportionnelle au nombre de ligne.
Donc la simple suppression ne résout pas le problème de plage, il faut bien forcer le recalcule de celle ci.
Cordialement

 

Vote positif 0 Vote négatif