Masquer des lignes

Bonjour à tous.

J'ai créé ce code :

Code:

---

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

Un filtre automatique avec comme critère "<>1"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub ImprimerInterroger() Dim LastLig As Long   Application.Calculation = xlCalculationManual Application.ScreenUpdating = False With Sheets("Interroger") .AutoFilterMode = False LastLig = .Cells(.Rows.Count, "GA").End(xlUp).Row .Range("GA1:GA" & LastLig).AutoFilter field:=1, Criteria1:="<>1" End With Application.Calculation = xlCalculationAutomatic End Sub

---

Parfois on cherche des solutions si complexe que l'on ne voit même pas les solutions simple comme les filtres...:oops:

Merci à vous mercatog

Dlight