Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

klercs

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

Pièces jointes

  • TEST filtre.xlsm
    118.8 KB · Affichages: 6

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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


Boisgontier
 

Pièces jointes

  • Copie de TEST filtre.xlsm
    114.1 KB · Affichages: 10
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…