Discussion :

[saigon]

Bonjour,

j'aimerais récupérer les valeurs d'un filtre automatique en vba.

j'y suis arrivé pour deux critères selectionnés

Code :

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

1
2
3
4
Sub nombreCritere()
    Debug.Print ActiveSheet.AutoFilter.Filters(1).Criteria1
    Debug.Print ActiveSheet.AutoFilter.Filters(1).Criteria2
End Sub

mais impossible de récupérer dès lors que j'ai plus de 2 filtres...

une idée ?

PS : si un modo passe par là qu'il mette mon post dans la section VBA...me suis trompé merci.

Merci.
Sai

[Daniel.C]

Bonjour,

Si tu parles de filtres obtenus en cochant des cases de sélection, il semblerait que ce soit impossible. La meilleure réponse que j'aie obtenue (Rory Archibald) :

It does appear impossible to
return the filter values directly (they are stored in the XML of course)

Regards,
Rory

[saigon]

arf...j'étais persuadé qu'on pouvait...

merci pour ton retour !

[Daniel.C]

C'est absolument anormal qu'on ne puisse pas les récupérer par VBA alors qu'on peut les mettre par VBA, je suis bien d'accord.

[saigon]

bon je crois avoir trouvé...c'est bizarre

en gros lorsque le nombre de filtre coché est strictement supérieur à 2 on peut boucler sur la propriété Criteria1

Code :

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

1
2
3
4
5
6
 
Sub filterList()
  For Each n In ActiveSheet.AutoFilter.Filters(1).Criteria1
    Debug.Print n
  Next
End Sub

je viens de tester ça marche plutôt bien...si ça peut servir à quelqu'un

Sai

[Daniel.C]

Exact, sauf pour les filtres sur les dates ou les heures.