Récupérer le nombre d'élément filtré

Lipaika · 29 Mars 2007

Bonjour,

Quand on applique un filter à la main, on peut voir le nombre d'élément filtré/trouvé par rapport au nombre total.
Peut-on récupérer ce nombre?

Merci

Pierrot93 · 29 Mars 2007

Re : Récupérer le nombre d'élément filtré

Bonjour Lipaika

regarde le code ci dessous, filtre en A1 sur cellule de A2 à A10 :

Code:

x = WorksheetFunction.Subtotal(2, Range("A2:A10"))

bon après midi
@+

Lipaika · 29 Mars 2007

Re : Récupérer le nombre d'élément filtré

Merci.

Voici un exemple qui marche :
Je filtre les valeurs supérieures à 16 dans la première colonne. Et je récupère le nombre d'éléments filtrés :

Code:

'Code qui marche
Sub filtersup16()
    Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">16", Operator:=xlAnd
    x = WorksheetFunction.Subtotal(2, Selection)
    MsgBox x
End Sub

Petite erreur à ne pas commettre :

Code:

'Code qui NE marche PAS
Sub filtersup16()
    Range("A1").select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:=">16", Operator:=xlAnd
    x = WorksheetFunction.Subtotal(2, Selection)
    MsgBox x
End Sub

Le code ci dessus ne fonctionne pas car la selection reste A1, et x=0.

DONC ne pas oublier le Cells.select

Merci beaucoup pour ce coup de pouce!!

Lipaika · 29 Mars 2007

Re : Récupérer le nombre d'élément filtré

Bon un petit plus puisque je me demandais POURQUOI 2??

Voici la doc de VB :

SUBTOTAL(function_num,ref1,ref2,...)

Function_num is the number 1 to 11 that specifies which function to use in calculating subtotals within a list.

Function_Num Function
1 AVERAGE
2 COUNT
3 COUNTA
4 MAX
5 MIN
6 PRODUCT
7 STDEV
8 STDEVP
9 SUM
10 VAR
11 VARP

@ plus

WDAndCo · 29 Mars 2007

Re : Récupérer le nombre d'élément filtré

Bonsoir le forum
Moi dans ce cas j'utilise une colonne ou je mets un "1" et en fin de colonne un =SOUS.TOTAL(9;X colonne:X colonne)

WD

Récupérer le nombre d'élément filtré

Lipaika

Guest

Pierrot93

XLDnaute Barbatruc

Lipaika

Guest

Lipaika

Guest

WDAndCo

XLDnaute Impliqué

Discussions similaires

Récupérer le nombre d'élément filtré

Lipaika

Guest

Pierrot93

XLDnaute Barbatruc

Lipaika

Guest

Lipaika

Guest

WDAndCo

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency