XL 2016 Automatiser filtre

[mcj1997]

Bonjour,

Je cherche à automatiser la création d'un filtre que je fais dès réception d'un fichier et à chaque fois c'est le même filtre.

Merci d'avance,

 

[sylvanu]

Bonsoir Mcj,
Un essai en PJ avec :

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

 

[mcj1997]

Bonsoir Mcj,
Un essai en PJ avec :

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

Bonjour,

Merci je vais tester.

Bonne journée

 

[sylvanu]

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

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

 

[mcj1997]

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

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

C’est parfait et opérationnel dans mon fichier, toutefois est-ce qu‘il serait possible d’automatiser la somme de colonne d en prenant les lignes Cécile Delphine et Éric et totaliser toujours en colonne d pour les lignes Jacky JEan et Mathilde ? Merci d’avance.

 

[sylvanu]

Bonsoir,
Le plus simple est de faire la somme de :

SOMME.SI(A2:A22;"Cécile";D2:D22)

 

[Staple1600]

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)

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.

 

[mcj1997]

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)

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.

Bonjour,

Votre proposition m’intéresse mais comment l’intégrer dans la macro ?

Merci d’avance

 

[Staple1600]

Bonjour le fil,

On peut faire comme ci-dessous.
Mais utilises plutôt la version de Sylvanu.
Je n'ai posté la mienne simplement pour varier les plaisirs.
(La mienne est plus compliquée à mettre en œuvre selon son niveau de maitrise de VBA)

 

[mcj1997]

merci bien à tous les deux.