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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour