Discussion :

[JohnSn]

Bonjour,

J'ai une macro très très classique qui masque les lignes pour lesquelles la colonne D contient "o".
Ma macro fonctionne et j'ai essayé de délimiter au mieux la zone de recherche pour optimiser la vitesse d'exécution, mais c'est toujours trop lent (environ 5 secondes pour 1000 lignes).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Application
            .EnableEvents = False
            .Calculation = xlCalculationManual
            .ScreenUpdating = False
            .DisplayStatusBar = False
        End With
        ActiveSheet.DisplayPageBreaks = False
 
LstRw = Range("LstRw").Row ' la dernière cellule de mon fichier est nommée
    For Each c In Range("D1:D" & LstRw)
        If c.Value = "o" Then c.EntireRow.Hidden = True
    Next

Je ne trouve rien de satisfaisant
Comment faire pour optimiser au mieux cette macro s'il vous plait ?

[Marc-L]

Bonjour, bonjour !

Déjà il n'y aurait même pas besoin de code en utilisant un filtre !
Et un filtre même par code est assez rapide …

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[JohnSn]

Aaaah, superbe ! Merci beaucoup Marc-L !
Eviter les boucles est toujours très bénéfique