Masquer Ligne par vba

[Bruno]

Bonjours a tous,

Comment faire pour masquer des lignes qui sont vide par vba ( Ma ligne contient un formule )

Sub Masquer()
Range("A6:A20").Select
If Cells.value <> "" then Selection.EntireRow.Hidden = True
End sub

 

[STéphane]

un exemple basé sur une procédure de Frédéric S.)

Sub HideLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).entirerow.hidden=true
Next r
End Sub

 

[Bruno]

Merci Stéphane

Cela marche si je n'ai pas de formule et un seul tableau.

Seulement j'ai une formule dans les cellules et de plus sur la meme feuille j'ai 3 tableaux ( A6 a A20 & A28 a A42 & A50 a A64 ).C'est dans les 3 tableaux cselement que je veux masquer les lignes vide
(La formule et =Menu'!B5).

Merci

A+