XL 2013 VBA ne masque pas toutes les lignes

MarieLN · 27 Août 2021

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 · 27 Août 2021

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

@+

Compte Supprimé 979 · 27 Août 2021

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é · 27 Août 2021

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 · 27 Août 2021

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 · 27 Août 2021

BrunoM45 à dit:
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....

XL 2013 VBA ne masque pas toutes les lignes

MarieLN

XLDnaute Nouveau

Pièces jointes

Compte Supprimé 979

Compte Supprimé 979

Guest

Efgé

XLDnaute Barbatruc

MarieLN

XLDnaute Nouveau

MarieLN

XLDnaute Nouveau

Discussions similaires