compter des lignes filtrées dans une mcro VBA

[critri]

Bonjour

Je cherche la syntaxe pour compter le nombre de lignes filtrées dans une macro excel VBA

Je vous remercie d'avance

 

[bertgrav]

bonjour,

fais tu ton filtre sous vba ?
Dans ce cas il suffit de compter le nombre de valeur de ce filtre.
par contre c'est vrai j'ai déjà eu ce problème et j'ai dû le contourner par l'artifice que je viens de te donner.
mais je suis sure qu'il existe une solution.

chantal

 

[critri]

Oui je fais mon filtre comme cela
Selection.AutoFilter Field:=ColonneGFE, Criteria1:=initialeGFE(i)




Sheets.Add.Name = initialeGFE(i)
ChxGFE = initialeGFE(i)

Dim DestinationGFE As Range

Set DestinationGFE = Workbooks(FichierSynthese).Worksheets(initialeGFE(i)).Range('A1')
Dim MaBaseGFE As Range

Set MaBaseGFE = Sheets('fichierBase').AutoFilter.Range
'
MaBaseGFE.Copy DestinationGFE

critri

 

[Bernard_XLD]

Bonjour bertgrav, critri

pour un tableau comprenant des lignes de 1 à 30
(laisser le test sur une seule colonne).

Cordialement, A+

MsgBox Range('A1:A30').SpecialCells(xlCellTypeVisible).Count

 

[bertgrav]

dans ce cas compte le nombre de valeur qui correspondent à ton critére de sélection dans ta colonne considérée

en supposant que ta plage de recherche est en colonne D1 à D65536
et x1 te donnera le nbre de cellules, donc de lignes aprés filtre

Set Plage = Range(Range('D1'), Range('D65536').End(xlUp))

x1 = Application.WorksheetFunction.CountIf(Plage, ICI TU METS CE QUE TU RECHERCHE)
msgbox 'x1'

amicalement

chantal

 

[Hervé]

Bonjour cricri, chantal

pour connaitre en VBA le nombre de lignes filtrees (soit les lignes visibles) :

MsgBox Application.Subtotal(3, Columns('A'))

salut

edition : salut yeahoo

Message édité par: hervé, à: 26/04/2006 16:39

 

[AV]

Ave tous,

Histoire de..


MsgBox [Subtotal(3, A:A)]
'si il y a une étiquette de colonne (il serait anormal qu'il n'y en ai pas...) :
MsgBox [Subtotal(3, A:A)] - 1

AV [aaa]