Filtre et compteur [Résolu]

[moi244]

Salut À tous,
J'aimerais faire un filtre sur un critère dans la colonne B et un autre sur la colonne k et compter ensuite le nombre de lignes non vides de la colonne A.
Voici ce que j'ai fait de très simple sur une seule colonne, mais mon problème; le compteur s'applique sur toutes les lignes. (J'ai 8 lignes non vides mais seulement 3 lignes qui contiennent le chiffre 2, mais le résultat est 8)

Code :

1
2
3
4
5
6
7
8
9
10
Sub Macro2()
' macro faite avec enregistreur de macro
Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="2"
cellule = WorksheetFunction.CountA(Range("A:A"))
Range("d1") = cellule - 1
 
' le -1 est pour enlever la ligne des titres de colonnes.
End Sub

GROS Merci!!!

[edelweisseric]

Bonjour à tous
Bonjour moi244

A la place de :

Code :

1
2
cellule = WorksheetFunction.CountA(Range("A:A"))
Range("d1") = cellule - 1

tu écris ceci :

Code :

Range("D1")=Range("A2", ActiveSheet.Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells.Count

Si j'ai bien compris
Dis nous
Eric

[moi244]

Merci, ça fonctionne très bien, un autre astuce dans le cerveau

Bonjour,
J''ai essayé, ça fonctionne très bien, mais je n'arrive pas à appliquer un deuxième filtre sur un autre critère dans la colonne B

Code :

1
2
3
4
5
6
7
8
Range("A1").Select
    Selection.AutoFilter
      ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:="2"
      Range("B1").Select
      ActiveSheet.Range("B:B").AutoFilter Field:=1, Criteria1:="2011-10-25"
 
 
Range("E5") = Range("A2", ActiveSheet.Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells.Count

Donc, on dirait qu'il fait le filtre sur "2" dans la colonne A, mais pas le filtre de "2011-10-25" dans la colonne B.

Merci encore

[edelweisseric]

Bonjour

Tu remplaces tout ton code par ceci :

Code :

1
2
3
4
5
   Dim maplage As Range
    Set maplage = Range("A1:F34")    ' A modifier
    maplage.AutoFilter Field:=1, Criteria1:="2"
    maplage.AutoFilter Field:=2, Criteria1:="2011-10-25"
    Range("E5") = Range("A2", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells.Count

Dans Field:=1, le 1 représente la colonne "A"
Dans Field:=2, le 2 représente la colonne "B"
Et ce sera 3 pour la colonne "C", .......

Eric

[moi244]

Merci beaucoup. Ça marche à merveille.