Recuperer criteria1 lorsque plus de 2 parametres coches

Bonjour

Est il possible de recuperer le contenu de criteria1 d un autofilter losqu il y as plus de deux parametres de coches dans l autofilter que l on applique ?

Quel methode ?

Merci d' avance

Bonjour,

exemple :

Sub test()
    Dim f, i%
    With Worksheets("Album").AutoFilter.Filters(11)
        f = .Criteria1
    End With
    For i = LBound(f) To UBound(f)
        MsgBox f(i)
    Next i
End Sub

Erreur s'il y en a moins de 3.

Si tu ne sais pas, il faudrait mettre une seconde variable (type String suffit le cas échéant) pour recueillir .Criteria2, et tester f

avec If Vartype(f) > vbArray => si vrai on a un tableau d'au moins 3 valeurs, sinon, f renvoie la 1re valeur. S'il y en a 2, ta seconde variable renverra la 2e valeur je pense (mais pas testé ce point, ni si d'autres risques d'erreurs exigeant de tester préalablement).

Cordialement.

Bonjour MFerrand

Votre solution repond parfaitement a mes attentes !

Je l ai mise en place et cela marche parfaitement ,c etait dans le but de creer une petite interface graphique dans un userform pour indiquer a l utilisateur quels etait les filtres qu il avait chosis , a coté de l affichage du graphique correspondant .

En vous souhaitant une bonne journee

Cordialement

Adrien 8)