SUPPRESSION DE LIGNES

Bonsoir, jack
va faire un tour par ici : http://frederic.sigonneau.free.fr/

jack 43 a écrit:

Bonsoir,

Je souhaiterais de l'aide sur le sujet suivant :

" une macro qui supprime les lignes "vierges" jusqu'à la dernière ligne avec
des données, les lignes vides intermédiaires.

Merçi et bonne soirée et bon week-end

A+

bonjour jack,

Sub Macro1()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
'si le nombre de valeur de la ligne (i) = 0 on supprime la ligne
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete Shift:=xlUp
Next
End Sub

isabelle

Bonsoir,

Je souhaiterais de l'aide sur le sujet suivant :

" une macro qui supprime les lignes "vierges" jusqu'à la dernière ligne avec
des données, les lignes vides intermédiaires.

Merçi et bonne soirée et bon week-end

A+

Bonsoir Insabelle
Oserais-je me permettre de suggérer un si Row(i) = row(i-1) alors delete
entire row(i) car il me revient en mémoire les " " intempestifs qui risquent
de ne pas être comptabilisés.
Qu'en penses-tu?
Bien cordialement,
jacques

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eMRtA5lJFHA.1860@TK2MSFTNGP15.phx.gbl...

bonjour jack,

Sub Macro1()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
'si le nombre de valeur de la ligne (i) = 0 on supprime la ligne
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete Shift:=xlUp
Next
End Sub

isabelle

Bonsoir,

Je souhaiterais de l'aide sur le sujet suivant :

" une macro qui supprime les lignes "vierges" jusqu'à la dernière ligne
avec des données, les lignes vides intermédiaires.

Merçi et bonne soirée et bon week-end

A+