Filtre à tous

M

Mytå

Guest

• 17 Juin 2007

• #2

Re : Filtre à tous

Salut Temjeh

Code:

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

Mytå

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 17 Juin 2007

• #3

Re : Filtre à tous

Merci beaucoup

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

Merci

A+

Temjeh

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 17 Juin 2007

• #4

Re : Filtre à tous

bonjour Temjeh,Myta

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

à bientôt

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 17 Juin 2007

• #5

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 17 Juin 2007

• #6

Re : Filtre à tous

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 17 Juin 2007

• #7

Re : Filtre à tous

oK MERCI

tEMJEH

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 17 Juin 2007

• #8

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 :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 17 Juin 2007

• #9

Re : Filtre à tous

Merci Pierrot93

A+

Temjeh

 

Vote positif 0 Vote négatif