XL 2016 filtre 2 critères

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Je me mets actuellement à l'utilisation des filtres.
Je ne connais pas encore :confused:

je voudrais faire une sélection (affichage) sur 2 critères.
critère 1 : sur la colonne E,
critère 2 : sur la colonne F affichant que les dates = "aujourdhui()".

voici mon code :
Code:
Sub filtreAR()
    Application.EnableEvents = False
    Application.ScreenUpdating = False

Rows("5:5").Select
    Selection.AutoFilter
    ActiveSheet.Range("$E$5:$F$154").AutoFilter Field:=1, Criteria1:="A Rappeler"
    ActiveSheet.Range("$E$5:$F$154").AutoFilter Field:=2, Operator:=xlFilterValues, Criteria2:="=TODAY()"

    'ActiveSheet.Range("$E$5:$F$154").AutoFilter Field:=2, Operator:=xlFilterValues, Criteria2:=Array(2, "2/22/2019")

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Rows("7:2000").Select
    ActiveWorkbook.Worksheets("Répondeurs").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Répondeurs").Sort.SortFields.Add Key:=Range( _
        "f7:f20000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Répondeurs").Sort
        .SetRange Range("A7:BH20000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        '.Apply
    End With

    Range("f5").Select
ActiveWindow.DisplayHeadings = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Mais je n'y arrive pas malgré mes tentatives et essais.
Je joins le classeur test.

Pourriez-vous m'aider ?

Avec mes remerciements,
Je vous souhaite une bonne journée à toutes et à tous,
Amicalement,
arthour9973,
 

Pièces jointes

  • filtre_dble_test.xlsm
    23.6 KB · Affichages: 5

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bonjour Jean Marie,

Super ton code fonctionne aussi très bien :)

Est-il important d'annuler le filtre précédent avant de filtrer ?


Code:
Sub ChTi160_filtre()
Dim Dte
Dte = Format(Range("A1"), "dd mm yy")
With Rows("4:4")
'With Cells(4, 1)
     .AutoFilter
     .AutoFilter Field:=1, Criteria1:="A Rappeler"
     .AutoFilter Field:=2, Criteria1:="=" & Dte, Operator:=xlAnd, Criteria2:="=" & Dte
End With
End Sub

.AutoFilter

amicalement,
arthour973,
 

Discussions similaires

Réponses
3
Affichages
550

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T