filtre automatique

17/09/2004, 18h59

Salut,

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

merci.

17/09/2004, 21h40

bonsoir Laurent

dans cet exemple , le filtre est dans la colonne A

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

bonne soiree
MichelXld

18/09/2004, 09h11

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

18/09/2004, 19h32

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

17/09/2004, 18h59	#1 (permalink)
Laurent Guest Messages: n/a	filtre automatique Salut, Est ce que quelqu'un sait comment récuperer sous VB le nombre d'enregistrements sélectionnes par un filtre automatique? merci.

17/09/2004, 21h40	#2 (permalink)
michel Guest Messages: n/a	Re: filtre automatique bonsoir Laurent dans cet exemple , le filtre est dans la colonne A Sub NbLignesAfficheesFiltreAuto() MsgBox Range("A1:A" & Range("A6556").End(xlUp).Row).SpecialCells(xlVisib le).Count - 1 End Sub bonne soiree MichelXld

18/09/2004, 09h11	#3 (permalink)
Jean-Marie Guest Messages: n/a	Re: filtre automatique 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

18/09/2004, 19h32	#4 (permalink)
michel Guest Messages: n/a	Re: filtre automatique 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

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email