Compter le nombre de lignes renvoyées par un filtre élaboré en VBA

[Tonic]

Bonjour à tous,

Comment pourrais-je compter le nombre de lignes renvoyées par en filtre en
VBA??

J'ai déjà testé cette méthode :
NbLines = Range("A65536").End(xlUp).Row

Mais elle ne fonctionne pas car elle s'appuie sur la derniere ligne renvoyée
du filtre.

Quelqu'un aurait-il une idée???

Merci d'avance,

Tonic

[AV]

Avec l'en-tête de colonne en A1 :

MsgBox [subtotal(3,A:A)-1]

AV

[Tonic]

Merci pour tout AV cela fonctionne à la perfection!!!

Au passage, que signifie les crochets dans [subtotal(3,A:A)-1] ???

Tonic

Post by AV
MsgBox [subtotal(3,A:A)-1]
AV

[AV]

Post by Tonic
Au passage, que signifie les crochets dans [subtotal(3,A:A)-1]

Syntaxe courte pour Evaluate("subtotal(3,A:A)-1")

AV

[unknown]

Est-ce possible de me réexpliquer cette formule car j'en aurait de besoin

merci

Post by AV
MsgBox [subtotal(3,A:A)-1]
AV

[Jacquouille]

Bonjour Mélanie,
Pour comprendre, disséquez, disent les profs d'anatomie...-)

MsgBox [subtotal(3,A:A)-1]
MsgBox ---> fait apparaitre un message à l'écran (dans la boite)
[subtotal(3,A:A)-1] ----> argot grand breton qui veut dire SOUS.TOTAL (
fonction)
Les [ et ] ordonnent à la machine d'effectuer l'opération comprise entre ses
pates , ici S.T
(3,A:A) -----> sont les arguments de la fonction S.T, c-à-d, 3 pour compter
le Nb de valeur comprises dans...
A:A, c-à-d la colonne A
fonctions de SOUS.TOTAL ---> 1=moyene - 2=NB - 3=nbval - 4=max - 5=min -
9=somme....
Dans une cellule, après avoir effectué un tri =Sous.Total(3;A:A) donnera le
nombre de valeurs contenues dans la col A, répondant au (aux) critères du
filtre.
Tout cela pour dire à la machine que AV, docteur ès Excel voulait faire
calculer à ta machine, le nombre de cel de la col A répondant aux critères
du filtre.
Faire gaffe à la séparation d'arguments (virgule chez les buveurs de thé et
point-virgule en Gaule)
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

Post by unknown
Est-ce possible de me réexpliquer cette formule car j'en aurait de besoin
merci

Post by AV
MsgBox [subtotal(3,A:A)-1]
AV

[SL]

Bonjour

Il faut utiliser la fonction SOUS.TOTAL
Voir le post de Stef974 hier soir et la réponse de Modeste

Stéphane

Post by Tonic
Bonjour à tous,
Comment pourrais-je compter le nombre de lignes renvoyées par en filtre en
VBA??
NbLines = Range("A65536").End(xlUp).Row
Mais elle ne fonctionne pas car elle s'appuie sur la derniere ligne renvoyée
du filtre.
Quelqu'un aurait-il une idée???
Merci d'avance,
Tonic