Filtre à tous

[Temjeh]

Bonsoir et merci d'avance

Pour plus de rapidité y a t il un moyen de les remettre à tous d'un coup:

Col A à I

Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9

A+

Temjeh

 

[Mytå]

Re : Filtre à tous

Salut Temjeh

If Range("A1:I1").AutoFilter Then
Range("A1:I1").AutoFilter
End If

Mytå

 

[Temjeh]

Re : Filtre à tous

Merci beaucoup

Je croyais que ca aurait augmenter la vitesse de ma boucle mais c'est pareil

Merci

A+

Temjeh

 

[Bebere]

Re : Filtre à tous

bonjour Temjeh,Myta

dim Ws as worksheet
Set Ws = Sheets("Stock")
With Ws
If .FilterMode Then .ShowAllData
End With

à bientôt

 

[Temjeh]

Re : Filtre à tous

Montréal 6 AM

Merci beaucoup

Ca fonctionne aussi(pas plus rapide non-plus mais commme Mytå plus propre)

Je trouvais juste la remise à tous un peut longue (c'est vrai que je filtre sur 30000 lignes)

A+

Temjeh

 

[Bebere]

Re : Filtre à tous

Temjeh
essaye application.screenupdating=false avant application.screenupdating=true après si ce n'est pas le cas
à bientôt

 

[Temjeh]

Re : Filtre à tous

oK MERCI

tEMJEH

 

[Pierrot93]

Re : Filtre à tous

Bonjour Temjeh, Bebere, Myta

si tu as des formules dans les cellules, pour augmenter la rapidité, essaye peut le code qui suit :

Application.Calculation = xlCalculationManual
'ton code
Application.Calculation = xlCalculationAutomatic

bon après midi
@+

 

[Temjeh]

Re : Filtre à tous

Merci Pierrot93

A+

Temjeh