Microsoft 365 Filtre avancé (2 conditions) et problème avec la macro

[klercs]

Bonjour,
j'ai découvert le filtre avancé et si je filtre avec 2 conditions soit K3:L4 le résultat demandé est correct (agent et date).
J'ai insérer cela dans une macro à l'aide de l'enregistrement automatique.
Lors du lancement de la macro, le résultat trouvé ne prend pas en compte la seconde condition (date) c'est à dire que le résultat du filtre avancé ne trouve que la première condition (agents).
Bon je débute et je ne sais si je suis clair.
Ci joint le fichier allégé et ci dessous le script de la macro.

Application.CutCopyMode = False
Application.CutCopyMode = False
Sheets("arra").Select
Range("A6").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Sheets("DONNEES FIRST").Columns("A:I").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("DONNEES FIRST").Range("K3:L4"), CopyToRange:=Range _
("A4:I4"), Unique:=False

D'avance merci de votre aide et de votre indulgence ...

 

[BOISGONTIER]

Bonjour,

Pour VBA, Il faut inverser jour et mois dans les dates du critère

Sub arra()
    Sheets("DONNEES FIRST").Range("A1:I1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("DONNEES FIRST").Range("K3:L4"), CopyToRange:=Range( _
        "arra!Extract"), Unique:=False
End Sub

Sub nard()
    Sheets("DONNEES FIRST").Range("A1:I1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("DONNEES FIRST").Range("M3:N4"), CopyToRange:=Range( _
        "nard!Extract"), Unique:=False
End Sub

Le filtre élaboré

Boisgontier

 

[chris]

Bonjour à tous

Aujourd'hui, surtout avec 365, on utilise plutôt PowerQuery , intégré à Excel

Explications ici https://www.developpez.net/forums/b...ve-efficace-filtre-avance-dynamique-surcroit/

A noter que POwerQuery est aussi intégré dans le modèle objet Excel VBA

 

[klercs]

Bonsoir,
merci à vous 2 pour vos solutions que je vais étudier.