Lire en anglais

Partager via


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 ou le numéro d’index du filtre, 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

Voir aussi

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.