Discussion :

[siuol]

Bonjour

je cherche à affecter à une variable, le critère d'un autofilter d'UN TABELAU au sens EXCEL 2007 du terme...

à priori le code suivant (copier de l'aide excel) ne fonctionne pas car il fait référence à un objet Worksheets alors que l'autofilter en question appartient à un "objet" tableau ...

Code :

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

1
2
3
4
5
6
7
8
 
With Worksheets("Crew")
    If .AutoFilterMode Then
        With .AutoFilter.Filters(1)
            If .On Then c1 = .Criteria1
        End With
    End If
End With

j'ai essayé en vain de remplacer :
Worksheets("X")
par ActiveSheet.ListObjects("Y").Range




avez-vous une solution ?

merci

[Didier Gonard]

Bonjour,

vois ceci :

http://excel.developpez.com/faq/?page=Filtre

cordialement,

Didier

[siuol]

Bonjour et merci bien pour cette FAQ mais, sauf erreur elle ne répond pas à mon problème...

Mais elle confirme bien que :

...Depuis Excel2007, vous pouvez transformer les plages d'une même feuille en tableau afin d'utiliser plusieurs filtres sur la page...

mais comment donc faire référence à L'objet autofilter d'UN des tableaux de la sheet ?

Compléments----

Code :

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

1
2
 
ActiveSheet.ListObjects("T7_AMO").Range.AutoFilter Field:=2 , Criteria1:="=2010"

permet bien d'appliquer un filtre à AU tableau "T7_AMO" ... mais

Code :

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

1
2
 
    V1 = ActiveSheet.ListObjects("T7_AMO").Range.AutoFilter.Filters(2).Criteria1

renvoie une erreur...



merci encore

[siuol]

C'est résolu.

Code :

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

1
2
3
4
5
6
 
    With ActiveSheet.ListObjects("T7_AMO").AutoFilter.Filters
            If .Item(2).On Then
                V1 = .Item(2).Criteria1
            End If
    End With

Merci