Masquer et afficher des lignes

Bonjour,

dans le fichier joint, je cherche un code pour pouvoir masquer des lignes sur la plage A11:D100 (surligner en jaune) si

(x correspond à un N° de ligne entre 11 et 100)

Bx = 0€ et Cx = 0€ et aussi Dx = 0€ alors masquer la ligne.; sinon afficher la ligne.

Cordialement

Galiax

Bonjour,

Sub masquer()
    Dim datas, lig As Long
    datas = [B1:D100]
    For lig = 11 To 100
        Rows(lig).EntireRow.Hidden = Cells(lig, 2) = 0 And Cells(lig, 3) = 0 And Cells(lig, 4) = 0
    Next lig
End Sub

Sub afficher_tout()
    [B11:B100].EntireRow.Hidden = False
End Sub

eric

Bonjour

Bonjour à tous

Une variante à toutes fins utiles

Bye !

Bonjour à tous,

La fomule de Dx étant =Cx-Bx à mes yeux il suffit juste de tester Dx <> 0

Et dans ce cas, pourquoi ne pas simplement appliquer un filtre sur la colonne D

Je ne faisais que passer

Au plaisir

Bonjour le fil,

JExceL2fr,

La fomule de Dx étant =Cx-Bx à mes yeux il suffit juste de tester Dx <> 0

J'avais pensé à cela aussi mais si Cx = 1000 et Bx = 1000 Alors nous ne sommes plus dans la condition...

galiax, Si vous utilisez des tableaux structurés plus besoin de garder des lignes vides il se met à jour, et s’agrandit tout seul et de plus vous pouvez mettre une ligne de totaux.

Bonsoir à tous,

Un grand merci pour vos codes.

@++

PS : je n'ai pas été au bout de mon idée, dans le For remplace par :

Rows(lig).EntireRow.Hidden = datas(lig, 1) = 0 And datas(lig, 2) = 0 And datas(lig, 3) = 0

Ca sera plus rapide
eric