XL 2013 VBA ne masque pas toutes les lignes

MarieLN

XLDnaute Nouveau
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.
 

Pièces jointes

  • Fiche modèle.xlsm
    206.6 KB · Affichages: 5
Solution
Bonjour MarieLN,

Sans ouvrir le fichier, je ferais comme cela
VB:
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

@+

BrunoM45

XLDnaute Barbatruc
Bonjour MarieLN,

Sans ouvrir le fichier, je ferais comme cela
VB:
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é

XLDnaute Barbatruc
Bonjour MarieLN
Comme ça :
VB:
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

XLDnaute Nouveau
Bonjour MarieLN,

Sans ouvrir le fichier, je ferais comme cela
VB:
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....
 

Discussions similaires

Réponses
10
Affichages
539
Réponses
7
Affichages
434

Statistiques des forums

Discussions
294 444
Messages
1 938 545
Membres
188 918
dernier inscrit
bahaeddine0