bellenm
XLDnaute Impliqué
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:
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
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:
VB:
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 Suble 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
Dernière édition: