Récupération de critère dans un filtre auto

[Pierrick]

Bonjour à tous.

Je voudrais savoir si l'on peut récupérer les critères appliqués dans un filtre auto de façon à pouvoir les appliquer sur d'autres feuilles.

Ceci devrait pouvoir permettre à l'utilisateur de ne faire son tri qu'une seule fois (j'ai une feuille par mois, pour de la gestion de congés).

Merci d'avance pour vos réponses...

Pierrick.

 

[michel]

bonjour Pierrick

la macro jointe permet d'afficher tous les criteres de filtres actifs dans la Feuil1


Sub boucleFiltresFeuille()
Dim i As Byte

For i = 1 To Feuil1.AutoFilter.Filters.Count
If Feuil1.AutoFilter.Filters.Item(i).On = True Then _
MsgBox "Le critère attribué : " & Feuil1.AutoFilter.Filters.Item(i).Criteria1
Next i
End Sub


bonne journée
MichelXld

 

[Pierrick]

Merci. Cela marche parfaitement !