Discussion :

[gamin]

Bonjour,
je voudrais dans un sheet excel sur une colonne déterminée filtrer les données et parcourir le filtre.
C'est-à-dire prendre le 1ier élément du filtre, puis le suivant,...
Merci d'avance.

[Megaxel]

Et qu'est-ce que tu fais du résultat? Tu copies le résultat du filtre sur chaque élément aillerus?

[gamin]

oui, je le mets dans une variable.
Mon but est pour chacun des éléments du filtre d'en calculer le nombre.

[collegue]

Salut,

Et les critères pour filtrer ils se trouvent où ?

[Megaxel]

Si tu veux mon avis, oublie le filtre Excel, et fais tout dans une macro: Tu parcours ta colonne, et tu comptes les éléments de chaque type.

[collegue]

Si tu veux mon avis, oublie le filtre Excel, et fais tout dans une macro: Tu parcours ta colonne, et tu comptes les éléments de chaque type.

C'est ce que je pensais aussi.

[gamin]

C'est là que situe mon problème. Plutôt que d'indiquer chacun des éléments de mon filtre, je voudrais lui demander de me les donner les uns après les autres dans une boucle for ... next.
Malheureusement, je ne trouve pas le bon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
for i = 1 to 50
    Selection.AutoFilter Field:=4, Criteria1= i
    ind_ligne_code(i) = Worksheets("original").Range("C2:C" & _
    Worksheets("original").Range("C65536").End(xlUp).Row).SpecialCells(xlVisible).Count
next i

[collegue]

C'est là que situe mon problème. Plutôt que d'indiquer chacun des éléments de mon filtre, je voudrais lui demander de me les donner les uns après les autres dans une boucle for ... next.
Malheureusement, je ne trouve pas le bon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
for i = 1 to 50
    Selection.AutoFilter Field:=4, Criteria1= i
    ind_ligne_code(i) = Worksheets("original").Range("C2:C" & _
    Worksheets("original").Range("C65536").End(xlUp).Row).SpecialCells(xlVisible).Count
next i

Parcourir ton filtre ou bien la colonne qui contient les données c'est pareil... non ? Sinon je reviens avec ma question où sont stockés les critères ?

Tes critères ne peuvent quand même pas être la valeur de la variable incrémentée qui meut ta boucle ? Ou alors les valeurs de départ et de fin doivent être stockées quelque part.

[gamin]

Je voudrais justement éviter de parcourrir cette colonne car en VB6 cela prends beaucoup plus de temps qu'en VBA.
mon idée était donc de prendre éléments par éléments que constitue cette colonne( ou le filtre).
Mais dans un autofilter on indique la valeur du critère:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Selection.AutoFilter Field:=4, Criteria1:="212"

et non comme je voudrais faire sa "position", sa place dans la liste de la colonne du filtre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Selection.AutoFilter Field:=4, Criteria1:=1

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MaPlage As Range, Critere As Range, MaCell As Range
 
Set MaPlage = Range("E1:E1937")
Range("E1:E1937").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Set Critere = MaPlage.Offset(1).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
For Each MaCell In Critere.Cells
    MsgBox Application.WorksheetFunction.CountIf(MaPlage, MaCell.Value)
Next
ActiveSheet.ShowAllData

[gamin]

Je suis désolé mais je cherche le code pour trouver le nombre de ligne pour chaqu'un des critères.
Ici ton code ne me donne la valeur que pour le premier critère !

[bidou]

pourtant chez moi ca marche avec tout les critères

[gamin]

Ok, j'ai trouvé mon erreur.
Merci beaucoup.