filtre automatique

M

michel

Guest

• 17 Septembre 2004

• #2

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

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 18 Septembre 2004

• #3

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 18 Septembre 2004

• #4

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

 

Vote positif 0 Vote négatif