Bonjour,
J'utilise actuellement ce code pour masquer des lignes (merci à ceux qui m'ont aidé).
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.
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
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.
Partager