cacher ligne vide

[j'en ai mare comprend rien]

bonjour a tous,

je cherche un moyen pour cacher le ligne qui sont vides apres un filtre auto qui recherche les lignes 'différente de 0' (macro ou filtre élaboré)

en fait je voudrais resserrer toutes les lignes en evitant les trous car c pas presentable...

merci

 

[Baside]

Bonjour j'en ai mare comprend rien le forum

Avec un fichier ce serait bien mieux

Baside

 

[Romain]

Bonjour,

Voici un exemple de code pour la plage a1-c10.
A adapter au besoin

Sub MasqueLignesVides()
Dim c As Range
Dim selection As Range
Set selection = Range('A1', 'C10')
For Each c In selection
If Application.CountA(c.EntireRow) = 0 Then Rows(c.Row).RowHeight = 0
Next c
End Sub

Ce code fonctionne bien pour une feuille. A tester pour un filtre.
Bonne soirée

Romain

 

[Baside]

Bonjour Romain le forum

Et une présentation, une

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