XL 2019 [Résolu] Masquer et démasquer des lignes problème macro

[bellenm]

Bonjours à tous,

Voilà je dois masquer les lignes jaune et les réafficher plus tard si besoin.
Les lignes oranges peuvent elle être masquée plus définitivement mais pas enlever du classeur car ces cellules servent pour la ligne blanche.

Voici le code que j'ai mais qui ne fait pas le taf:

Sub Masque()
    Dim Début%, Fin%, L%
    Application.ScreenUpdating = False
    Début = 2 'Range("A2").End(xlDown).Row
    Fin = Range("e5000").End(xlUp).Row
    For L = Fin To Début Step -1
        If Cells(L, "e") = "x" Then Rows(L).Hidden = True
    Next L
End Sub
Sub Démasque()
    Dim Début%, Fin%, L%
    Application.ScreenUpdating = False
    Début = Range("A1").End(xlDown).Row
    Fin = Range("E5000").End(xlUp).Row
    Rows(Début & ":" & Fin).Hidden = False
End Sub

le nombre de ligne sera supérieur à ce tableau en réalité il y aura 150 lignes

Auriez-vous la solution?

Merci d'avance

Marc B

 

[Hasco]

Bonjour,

Si début = 2 et que vous avez 150 ligne alors Fin = 152
Pas plus compliqué que ça.

Cordialement

 

[bellenm]

Bonjour Hasco,

trop simple mais c'est bien çà merci