XL 2013 VBA ne masque pas toutes les lignes

[MarieLN]

Bonjour, je n'arrive pas à comprendre pourquoi à l'aide de mon module liste déroulante, les lignes de mon fichier ne se masquent pas dans la totalité et certaines restent masquées alors qu'elle ne devraient pas l'etre :
Sub Zonedeliste18_QuandChangement()
End Sub
Sub Masqueligne()
Lg = Range("A55").End(xlUp).Row
For I = 1 To Lg
If Cells(I, 1).Value = "0" Then
Rows(I).Hidden = Not (Rows(I).Hidden)
End If
Next
End Sub

Je joins le fichier.
Merci de vos conseils.

 

[Compte Supprimé 979]

Bonjour MarieLN,

Sans ouvrir le fichier, je ferais comme cela

Sub Masqueligne()
Lg = Range("A55").End(xlUp).Row
For I = 1 To Lg
If Cells(I, 1).Value = "0" Then
  Rows(I).Hidden = True
Else
  Rows(I).Hidden = False
End If
Next
End Sub

Ceci dit avec un simple filtre sur votre tableau cela serait plus rapide

@+

 

[Efgé]

Bonjour MarieLN
Comme ça :

Sub Masqueligne()
Lg = Range("A55").End(xlUp).Row
For I = 7 To Lg
    If Cells(I, 1).Value = "0" Then
        Rows(I).Hidden = True
    Else
        Rows(I).Hidden = False
    End If
Next I
End Sub

Cordialement

EDIT Bonjour BrunoM45,
J'ajouterai "En espérant qu'il n'y est jamais plus de 55 lignes" 🙂

 

[MarieLN]

Merci infiniment pour votre réactivité à vous deux.
C'est donc possible avec un simple filtre en cliquant sur le nom désiré ? mais alors comment ?

 

[MarieLN]

Bonjour MarieLN,

Sans ouvrir le fichier, je ferais comme cela

Sub Masqueligne()
Lg = Range("A55").End(xlUp).Row
For I = 1 To Lg
If Cells(I, 1).Value = "0" Then
  Rows(I).Hidden = True
Else
  Rows(I).Hidden = False
End If
Next
End Sub

Ceci dit avec un simple filtre sur votre tableau cela serait plus rapide

@+

Merci infiniment !
Réussi également avec le filtre automatique, merci de m'avoir mis sur la voie....