Discussion :

[dlight]

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

[mercatog]

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

Code :

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

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

[dlight]

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

Merci à vous mercatog

Dlight