Supprimer lignes non renseignées

[okavangou]

Bonjour,

comment créer une petite routine en vba qui me permettrait d'améliorer la présentation de mon tableau en pièce jointe de façon à ce que toutes les lignes non renseignées disparaissent automatiquement.

merci d'avance

cordialement

 

[porcinet82]

Salut Okavangou,

Ton fichier n'est pas passé, tu peux allé voir Lien supprimé pour voir comment faire.

En attendant ton fichier...

@+

 

[okavangou]

milles excuses , j'avais oublié le fichier en pièce jointe

cdlmt

 

[tango]

Ci-joint macro qui supprime les lignes vides.
Elle m'avait été communiquée par un membre du forum dont j'ai oublié le nom. Je le prie de m'en excuser. [file name=Supressionlignesvide_20060413125344.zip size=47690]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Supressionlignesvide_20060413125344.zip[/file]

 

[okavangou]

merci à tous et désolé pour mon inexpérience ..

on ne m'y reprendra plus :S

en pièce jointe mon fichier

cordialement

[file name=SupprimeLignes_20060413130739.zip size=5919]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SupprimeLignes_20060413130739.zip[/file]

 

[okavangou]

merci à tous et désolé pour mon inexpérience ..

on ne m'y reprendra plus :S

en pièce jointe mon fichier

cordialement

[file name=SupprimeLignes_20060413130836.zip size=5919]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SupprimeLignes_20060413130836.zip[/file]

 

[porcinet82]

re Okavangou, Tango,

Okavangou, as-tu regarder la solution apportée par Tango, parce qu'elle fonctionne parfaitement. Et du coup, ton fichier ne sert à rien

Il te suffit simplement de modifier la ligne suivante :
For n = Range('A65536').End(xlUp).Row To 6 Step -1

@+

 

[porcinet82]

re,

Je viens de jeter un oeil a ton fichier, et en fait, tes lignes ne sont pas vides, elles contiennent un 0.

Modifie également la ligne suivante :
If Cells(n, 1) = '0' Then Rows(n).Delete

@+

 

[okavangou]

merci à tous et désolé pour mon inexpérience ..

on ne m'y reprendra plus :S

en pièce jointe mon fichier

cordialement

[file name=SupprimeLignes.zip size=5919]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SupprimeLignes.zip[/file]

 

[okavangou]

merci à tous

j'ai essayé le code vba en modifiant pour les cellules égales à zéro

cela marche impec maintenant

à ++++