Discussion :

[marc56]

Bonjour,
J'utilise actuellement ce code pour masquer des lignes (merci à ceux qui m'ont aidé).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Masquer()
Dim i As Long
    For i = 11 To Rows.Count
        If Range("A" & i).Text = "" Then Exit For
            If Range("C" & i).Value = "Archivé" Then
            Rows(i).Hidden = True
        End If
    Next i
End Sub

Comme j'ai beaucoup de lignes, je le trouve assez lent et j'ai l'impression qu'après avoir testé une ligne, il retourne à l'origine avant de redescendre lire la ligne suivante.
Après avoir testé une ligne, n'est-il pas possible de :
- lire immédiatement la ligne suivante,
- si la cellule A est vide, alors sortir sinon
- si la cellule C est égale à "Archivé", masquer toute la ligne sinon passer à la suivante.
Cela est-il possible? et si oui, comment modifier le code?
A l'avance, merci.

[ML0808]

Hello
Je ne comprends pas précisemment ce que tu veux?
Qu'entends tu par "tester une ligne" ? Vérifier que sa cellule A est vide?
Si elle est vide, tu veux sortir complètement de la boucle ou juste passer à la ligne suivante?

[marc56]

Par tester je voulais parler des conditions,
Si la cellule A est vide, c'est que nous sommes à la fin des enregistrements et donc sortir.
Si la cellule A n'est pas vide et que la cellule C est égale à "Archivé" alors masquer la ligne entièrement puis passer à la ligne suivante.
Si la cellule A n'est pas vide et que la cellule C est différente de "Archivé" alors ne rien faire et passer à la ligne suivante.
J'espère avoir été plus clair.

[fring]

euuhhhh...je suppose que vu ta réponse...tu as testé le code que je te propose ou du moins que tu l'as lu ?

[marc56]

Pour Fring,
Ce n'est pas le nombre de lignes qui fait qu'il rame, car quand je lance le masquage, je peux suivre la progression qui est très lente, d'où ma question d'origine.

[fring]

Bon... fais comme tu veux
Pour info, je viens de tester sur 5000 lignes, ça prend 5 secondes, même résultat chez toi ?

[marc56]

Pour 624 lignes, il a mis 105 secondes. J'ai cru qu'il était planté. C'est peut-être dû au volume de chaque ligne?

[fring]

Bonjour,

Oui c'est long parce que tu vérifies les 65535 lignes...(voir bcp plus si tu es en 2007)

Autre petit détail, pour supprimer ou masquer des lignes, il faut faire une boucle en remontant sinon ça coince lorsque plusieurs lignes consécutives sont à masquer

Ce qui donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Masquer()
Dim i As Integer
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 11 Step -1
        If Cells(i, 3) = "Archivé" Then Rows(i).Hidden = True
    Next i
End Sub

Et dans ce cas plus besoin de vérifier si A est vide

[tomy7]

je pense que le seul truc qui fait que tu rame est le row.count


alors fixe plutot une valeur : For i = 1 to 1000

sinon test avec ce que fais fring
mais moi j ai un code comme le tien qui fonctionne tres bien...