Objet Filters (Excel)
Collection d’objets Filter qui représente tous les filtres d’une plage filtrée automatiquement.
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
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.