compter des lignes filtrées dans une mcro VBA

B

bertgrav

XLDnaute Occasionnel

• 26 Avril 2006

• #2

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

 

Vote positif 0 Vote négatif

C

critri

Guest

• 26 Avril 2006

• #3

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 26 Avril 2006

• #4

Bonjour bertgrav, critri

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

Cordialement, A+

Code:

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

 

Vote positif 0 Vote négatif

B

bertgrav

XLDnaute Occasionnel

• 26 Avril 2006

• #5

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 26 Avril 2006

• #6

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

 

Vote positif 0 Vote négatif

A

AV

Guest

• 26 Avril 2006

• #7

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]

 

Vote positif 0 Vote négatif