Discussion :

[Caroline1]

Bonjour,

J'applique un filtre sur une sélection de cellules dans une feuille. Le problème, c'est que je n'arrive pas à récupérer la liste des valeurs filtrées. Je les vois à l'écran mais j'ai besoin de les manipuler par code.

La doc semble indiquer que la propriété AutoFilter renvoit ce que j'espère mais en fait, ce n'est qu'un booléan.

Quelqu'un aurait une idée?
Merci!

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim rngTotalFiltre
 
    rngTotalFiltre = Worksheets("Releve par date - formulaire").Range("G1:L1").EntireColumn.AutoFilter( _
        Field:=6, _
        Criteria1:=">=" & dtDebut, _
        Operator:=xlAnd, _
        Criteria2:="<=" & dtFin, _
        VisibleDropDown:=False)

[Caroline1]

Finalement, je n'ai pas utilisé la fonction autofiltre.

J'ai juste ajouté un test devant le traitement : je passe à travers toutes les données mais je ne traite pas la donnée si le champs date n'est pas entre mes 2 dates.

C'est peut-être pas le plus optimisé mais ça fonctionne.

Caroline

[viscere]

Peut être que si tu utilises la propriété Hidden de Rows en la testant sur chaque ligne, tu peux récupérer les valeurs filtrées..mais on parcours toujours le fichier entier...

je vais essayer tient.