[XL-2003] hauteur de ligne à zéro

[4855patrick]

Bonjour à tous, si qq peut m'aider c'est super : voila mon problème, je voudrais dans une feuille faire en sorte que si une valeur dans une cellule est égale à zéro ou vide, excel me mette la hauteur de ligne à zéro pour ne pas voire cette ligne dans mon impression.
Merci

[Daniel.C]

Bonjour,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
'Réf 111019.xlsm
With Sheets("Feuil1")
    ligne = .Cells.Find("*", .[A1], , , xlByRows, xlPrevious).Row
    For i = ligne To 1 Step -1
        If Application.CountA(.Rows(i)) = 0 Or _
            Application.CountIf(.Rows(i), 0) + _
            Application.CountBlank(.Rows(i)) = .Cells.Rows.Count Then
            .Rows(i).Hidden = True
        End If
    Next i
    .Range(.Cells(ligne + 1, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True
End With
End Sub