Filters, objet (Excel)Filters object (Excel)

Collection d'objets Filter qui représente tous les filtres d'une plage filtrée automatiquement.A collection of Filter objects that represents all the filters in an autofiltered range.

ExempleExample

Utilisez la propriété Filters de l'objet AutoFilter pour renvoyer la collection Filters . ****Use the Filters property of the AutoFilter object to return the Filters collection. 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.The following example creates a list that contains the criteria and operators for the filters in the autofiltered range on the Crew worksheet.

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 .Use Filters (index), where index is the filter title or index number, to return a single Filter object. 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.The following example sets a variable to the value of the On property of the filter for the first column in the filtered range on the Crew worksheet.

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

PropriétésProperties

Voir aussiSee also

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.