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

klercs · 14 Octobre 2019

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 ...

chris · 15 Octobre 2019

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

BOISGONTIER · 15 Octobre 2019

Bonjour,

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

VB:

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 · 15 Octobre 2019

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 · 16 Octobre 2019

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

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

klercs

XLDnaute Nouveau

Pièces jointes

chris

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

klercs

XLDnaute Nouveau

Discussions similaires