filtre auto en vba

[starius]

Bonjour,

J'utilise un filtre automatique en vba mais je ne sais pas comptabiliser le nombre des lignes filtrées.

Quelqu'un peut-il m'aider ?

Merci d'avance !

A bientôt !

 

[GPLIONEL]

Re : filtre auto en vba

Bonjour Starius

Une astuce sous forme de formule, sous ton tableau, tu laisse une ligne vide et dans la cellule suivante tu tapes cette formule :
dans l'expemple ton tableau va de A1 à A17
=SOUS.TOTAL(3;A2:A17)
Le soustotal avec le chiffre 3 donne le nombre de ligne non vide du tableau filtré.

 

[starius]

Re : filtre auto en vba

Merci pour ta réponse GPLIONEL mais plusieurs choses m'empêchent d'utiliser cette option :

- je ne connais pas le nombre de lignes total
- des lignes se rajoutent au fur et à mesure par copier / coller (cela effacerait donc à un moment donné la formule)

Je pourrais effectivement, trouver la première ligne vide, écrire la formule dans la cellule, recopier le résultat, effacer la formule...

Mais il n'existe pas une fonction VBA liée au filtre automatique pour avoir ce résultat ?

Merci encore.

 

[Pierrot93]

Re : filtre auto en vba

Bonjour Starius, Re Lionel

essaye peut être avec la methode "SpecialCells" comme dans l'exmple ci dessous :

x = Range("A1:A7").SpecialCells(xlCellTypeVisible).Count

bon après midi
@+

 

[starius]

Re : filtre auto en vba

Bonjour Pierrot, bonjour à tous.

J'ai essayé avec cette formule, elle me retourne un nombre effectivement, mais cela ne correspond pas du tout au nombre de lignes visibles...

A l'aide !!!

Merci d'avance

 

[Staple1600]

Re : filtre auto en vba

Bonjour


Et comme ca

(tribute à Pierrot93)

Sub test()
'le -1 c'est pour ne pas compter la cellule ou est appliquée le filtre
x = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count
MsgBox x -1
End Sub

(tribute à GPLIONEL)

sub test2()
'ici adapter la plage : A:A selon la plage filtrée
[COLOR=Black] MsgBox [[/COLOR][COLOR=Black]subtotal(3,A:A)] -1
end sub
[/COLOR]

 

[JCGL]

Re : filtre auto en vba

Bonjour,

Pourquoi mettre la formule "en bas", il te suffit de la mettre "en haut" et d'agrandir ta plage !!!

=SOUS.TOTAL(3;A2:A65000)

- je ne connais pas le nombre de lignes total
- des lignes se rajoutent au fur et à mesure par copier / coller (cela effacerait donc à un moment donné la formule)

A+

 

[starius]

Re : filtre auto en vba

Merci à tous les deux, ça fonctionne !

Ca m'enlève une belle épine du pied