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

 

[j'en ai mare comprend rien]

dslé bug d'actualisation

 

[porcinet82]

salut,

je te propose une petite macro qui supprime les lignes vides et a adapter a ton cas

Sub SuppLigneVides()
    Sheets('feuil1').Select
    Range('A1').Select
    With ActiveSheet.UsedRange
      derLi = .Row + .Rows.Count - 1
    End With
    Application.ScreenUpdating = False
    For i = derLi To 1 Step -1
      If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
    Next i
End Sub

bon courage

@+