filtre automatique

[Laurent]

Salut,

Est ce que quelqu'un sait comment récuperer sous VB le nombre d'enregistrements sélectionnes par un filtre automatique?

merci.

 

[michel]

bonsoir Laurent

dans cet exemple , le filtre est dans la colonne A

Sub NbLignesAfficheesFiltreAuto()
MsgBox Range("A1:A" & Range("A6556").End(xlUp).Row).SpecialCells(xlVisible).Count - 1
End Sub


bonne soiree
MichelXld

 

[Jean-Marie]

Bonjour Laurent, Michel

Ou, (on ne se refait pas, quand les formules vous tiennent)

MsgBox Evaluate("=subtotal(3,A:A)")
ou
MsgBox [subtotal(3,A:A)]

@+Jean-Marie

 

[michel]

bonjour Jean-Marie

je n'avais jamais pensé à utiliser la methode Evaluate
Merci pour cette solution qui va m'etre très utile


bon week end à toi
MichelXld