Utiliser des résultats automatiques

[Inside093]

Bonjour à tous,
Nouveau sur ce forum, j'espère être dans le bon topic.
Ma question:
Lorsque que j'applique un filtre sur un plage, il apparait en bas à gauche dans le barre d'état, xx enregistrements trouvés sur yy.
dans quelle variable est stocké xx

Merci d'avance cela fait qlq temps que je cherche

 

[BOISGONTIER]

Re : Utiliser des résultats automatiques

Bonjour,

=SOUS.TOTAL(3;A2:A1000)

En VBA:

x = [subTOTAL(3,A2:A1000)]

JB
Formation Excel VBA JB

 

[Cousinhub]

Re : Utiliser des résultats automatiques

Bonjour,
si tu appliques ton filtre sur la colonne A, par exemple, et que ton titre est en A1, tu peux retrouver la variable comme ceci :

par formule :

=SOUS.TOTAL(3;A:A)-1

en VBA :

x = [SUBTOTAL(3,A:A)] - 1

 

[Inside093]

Re : Utiliser des résultats automatiques

Pour commencer merci de la rapidité des réponses,

Ma ligne de titre est en ligne 7, est-ce qu'il est possible d'écrire
=SUBTOTAL(3,A7:A)

merci d'avance

 

[Cousinhub]

Re : Utiliser des résultats automatiques

Re-, tu mets A8 à la place de A2, et tu mets A1000 par exemple (si tu n'as pas plus de 1000 lignes)

 

[Inside093]

Re : Utiliser des résultats automatiques

Merci à tous pour ces réponses

 

[Inside093]

Re : Utiliser des résultats automatiques

Re- bonjour,

J'ai un filtre comme ci-dessous:
Selection.AutoFilter Field:=1, Criteria1:=">=01/01/2008", Operator:=xlAnd, _
Criteria2:="<=1/31/2008"

Je voudrais compter les lignes répondant à ce filtre.

J'ai bien essayé avec vos conseils de ranger le résultat dans la cell C6 de la feuille Tdb, mais le résultat est faux et il ne change pas quand je change la valeur du filtre, alors que le nombre de ligne change...

tmp5 = [SUBTOTAL(3,a7:a1000) ]
Worksheets("Tdb").Range("C6").Value = tmp5

Merci d'avance pour votre aide

 

[Staple1600]

Re : Utiliser des résultats automatiques

Bonjour

Et comme ça

Worksheets("Tdb").Range("C6").FormulaLocal = [COLOR=Blue]"=SOUS.TOTAL(3;A7[/COLOR][COLOR=Blue][B]:[/B]A1000)"[/COLOR]

 

[Inside093]

Re : Utiliser des résultats automatiques

EUREKA.....!!!

Bon c'est peu être un exagéré...
mias j'ai trouvé pourquoi le résultat n'était pas bon, il fallait complèter comme suit:
Tmp5 = Worksheets(2).[subTOTAL(3,a6:a1000) ] - 1

merci pour tout à tous