Bonjour,
Je sais que le sujet a été maintes fois traités, j'ai d'ailleurs trouvé le code sur ce forum que j'essaye d'adapter à mon fichier mais je coince quelque part.
Voila dabord les conditions pour masquer les lignes :
il faut que les cellules comprises entre a20 et a35 soient vides (s'ils y en a qui contiennent des valeurs, elles restent). Voici le code :
Sub MasqLignesVides()
ActiveSheet.Unprotect
Dim J As Long
Dim Plage As Range
Set Plage = Range("a20", Range("a35").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
If Plage.Cells(J).Value = "" Then
Plage.Cells(J).EntireRow.Hidden = True
End If
Next
Range("a36").Select
End Sub
Là où j'ai un gros doute, c'est sur le End(xlUp) qui a mon avis est fait pour une macro qui va jusqu'à la fin de la feuille.
Merci pour votre aide
Je sais que le sujet a été maintes fois traités, j'ai d'ailleurs trouvé le code sur ce forum que j'essaye d'adapter à mon fichier mais je coince quelque part.
Voila dabord les conditions pour masquer les lignes :
il faut que les cellules comprises entre a20 et a35 soient vides (s'ils y en a qui contiennent des valeurs, elles restent). Voici le code :
Sub MasqLignesVides()
ActiveSheet.Unprotect
Dim J As Long
Dim Plage As Range
Set Plage = Range("a20", Range("a35").End(xlUp))
For J = Plage.Cells.Count To 1 Step -1
If Plage.Cells(J).Value = "" Then
Plage.Cells(J).EntireRow.Hidden = True
End If
Next
Range("a36").Select
End Sub
Là où j'ai un gros doute, c'est sur le End(xlUp) qui a mon avis est fait pour une macro qui va jusqu'à la fin de la feuille.
Merci pour votre aide