Récuperation de la valeur d\'un filtre automatique

[emarchad]

Récuperation de la valeur d'un filtre automatique

Bonjour,

Je souhaite récupérer dans une feuille de données la valeur des filtres automatiques mis en jeu par un utilisateur pour pouvoir l'afficher ensuite dans un graphique :

existe-t-il une macro standard ?

comment faire ?

merci pour vos réponses

Message édité par: emarchad, à: 16/05/2006 10:18

Message édité par: emarchad, à: 16/05/2006 14:51

 

[Amydale]

Re:Récuperation de la valeur d'un filtre automatique

Une macro standard peut etre pas, mais tu dois pouvoir t'inspirer de ca :

ws.AutoFilterMode ' pour savoir si filtre apparant

For i=1 to ws.AutoFilter.Filters.Count ' petite boucle pour chaque filtre

ws.AutoFilter.Filters.Item(i).On ' pour savoir si le filtre est activé

Puis tu peux utiliser
.Criteria1 pour obtenir le critere 1
.Operator pour obtenir l'opérateur
.Criteria2 pour obtenir le deuxieme critere.

Bon courage

 

[emarchad]

Re:Récuperation de la valeur d'un filtre automatique

Merci beaucoup de l'aide

 

[djipoo]

Re : Récuperation de la valeur d\'un filtre automatique

Bonjour,

Merci pour la réponse, voici la mise en oeuvre:

Sub Macro1()

Dim string1, string2 As String
Dim ws As Worksheet

Set ws = Worksheets("Nom de la feuille contenant le filtre")
If ws.AutoFilterMode Then

For i = 1 To ws.AutoFilter.Filters.Count

If ws.AutoFilter.Filters.Item(i).On Then

string1 = string1 & ws.Cells(1, i).Text & "[" & ws.AutoFilter.Filters.Item(i).Criteria1

If ws.AutoFilter.Filters.Item(i).Operator Then

string1 = string1 & " OU " & ws.AutoFilter.Filters.Item(i).Criteria2
​

End If
string1 = string1 & "] "
​

Else

'string1 = string1 & ws.Cells(1, i).Text & "(All) "
​

End If
​

Next i
​

End If
MsgBox (string1)
​

End Sub