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

[Lipaika]

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]

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 :

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

bon après midi
@+

 

[Lipaika]

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 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 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]

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]

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