Objet Filters (Excel)

Collection d’objets Filter qui représente tous les filtres d’une plage filtrée automatiquement.

Exemple

Utilisez la propriété Filters de l’objet AutoFilter pour renvoyer la collection Filters . L'exemple suivant montre comment créer une liste contenant les critères et les opérateurs destinés aux filtres de la plage filtrée automatiquement de la feuille de calcul Crew.

Dim f As Filter 
Dim w As Worksheet 
Const ns As String = "Not set" 
 
Set w = Worksheets("Crew") 
Set w2 = Worksheets("FilterData") 
rw = 1 
For Each f In w.AutoFilter.Filters 
 If f.On Then 
 c1 = Right(f.Criteria1, Len(f.Criteria1) - 1) 
 If f.Operator Then 
 op = f.Operator 
 c2 = Right(f.Criteria2, Len(f.Criteria2) - 1) 
 Else 
 op = ns 
 c2 = ns 
 End If 
 Else 
 c1 = ns 
 op = ns 
 c2 = ns 
 End If 
 w2.Cells(rw, 1) = c1 
 w2.Cells(rw, 2) = op 
 w2.Cells(rw, 3) = c2 
 rw = rw + 1 
Next

Utilisez Filters (index), où index est le titre du filtre ou le numéro d’index, pour renvoyer un seul objet Filter . L'exemple suivant montre comment affecter à une variable la valeur de la propriété On du filtre pour la première colonne de la plage filtrée de la feuille de calcul Crew.

Set w = Worksheets("Crew") 
If w.AutoFilterMode Then 
 filterIsOn = w.AutoFilter.Filters(1).On 
End If

Propriétés

• Application
• Count
• Creator
• Élément
• Parent

Voir aussi

• Référence du modèle objet Excel

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.