XL 2016 Automatiser filtre

sylvanu à dit:

Bonsoir Mcj,
Un essai en PJ avec :

VB:

Sub Filtrer()
    Range("A1").AutoFilter
    ActiveSheet.Range("$A$1:$A$22").AutoFilter Field:=1, Criteria1:=Array( _
        "Cécile", "Delphine", "Eric", "Jacky", "Jean", "Mathilde"), Operator:= _
        xlFilterValues
End Sub
Sub Défiltrer()
    On Error Resume Next
    ActiveSheet.ShowAllData
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Testez cette version, elle est indépendante de la longueur de la liste, elle en tient compte avec :

VB:

Sub Filtrer()
    Dim Plage
    Application.ScreenUpdating = False
    Plage = "$A$1:$A$" & Range("A65500").End(xlUp).Row
    Range("A1").AutoFilter
    ActiveSheet.Range(Plage).AutoFilter Field:=1, Criteria1:=Array( _
        "Cécile", "Delphine", "Eric", "Jacky", "Jean", "Mathilde"), Operator:= _
        xlFilterValues
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour le fil

Une autre syntaxe pour filtrer
(au cas où les prénoms changent, il suffit de modifier la constante MesCriteres en conséquence)

VB:

Const MesCriteres As String = "Cécile/Delphine/Eric/Jacky/Jean/Mathilde"
Sub test()
Filtrage Range("A1"), Split(MesCriteres, "/")
End Sub
Private Sub Filtrage(r As Range, ParamArray vCriteres())
r.AutoFilter 1, vCriteres, 7
End Sub

Pour filtrer, c'est la macro test qu'on exécute.

Cliquez pour agrandir...