Bonjour à tous.

J'ai créé ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ImprimerInterroger()
 
Dim LastLig As Long, i As Long
 
Application.Calculation = xlCalculationManual
 
With Sheets("Interroger")
    LastLig = .Cells(.Rows.Count, "GA").End(xlUp).Row
    For i = 1 To LastLig
        If .Range("GA" & i).Text = "1" Then .Rows(i).Hidden = True
    Next i
End With
 
Application.Calculation = xlCalculationAutomatic
End Sub
Ma question:

Existe-t-il une autre façon de masquer les lignes en fonction du même critère que mon code qui serait plus rapide car mon onglet pourrait contenir seulement 35 enregistremments sur 5000 lignes où la formule contenant le 1 est présent.
Bref, dans mon présent test, le code devrait masquer les lignes 33 à 5000. Dans un autre cas, peut-être que les lignes à masquer seront de 121 à 5000.

Merci à l'avance encore une fois.

Dlight