XL 2016 filtre 2 critères

Usine à gaz · 22 Février 2019

Bonjour à toutes et à tous,

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

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,

Usine à gaz · 22 Février 2019

Re-Bonjour,

Je pense avoir trouvé mais pas pas sûr

Code:

Sub Macro1()
    Range("A4:b4").Select
    Selection.AutoFilter Field:=2, Criteria1:=">91"

    Range("a4:B4").Select
    Selection.AutoFilter Field:=2, Criteria1:=">37"

    Range("a1").Select
End Sub

Usine à gaz · 22 Février 2019

LOL hé ben non, ça marche pas

Il ne me prend pas sur la date

Usine à gaz · 22 Février 2019

Re-Bonjour à toutes et à tous,

Poursuivant mes recherches et sans résultat. Je suis allé "éplucher" les filtres de Mr Boisgontier.
http://boisgontierjacques.free.fr/

Dans l'un de ses fichiers, j'ai trouvé un code qui fonctionne très bien :

Code:

Sub filtreSup1Date()
  [A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(CDate("06/03/2019"))
End Sub

Je voudrais filtrer sur la date du jour et je n'arrive pas à le faire fonctionner si je le modifie comme suit :
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(CDate("=TODAY()"))

Pourriez-vous me corriger ?
Avec mes remerciements,
amicalement,
arthour973

Paf · 22 Février 2019

bonjour,

pas sûr que J. BOISGONTIER utilise Today() !!!

Pour le premier post , à tester:

VB:

Range("$E$5").AutoFilter Field:=1, Criteria1:="A Rappeler"
Range("$E$5").AutoFilter Field:=2, Criteria1:=Format(Date, "dd mm yy")

Usine à gaz · 22 Février 2019

Bonjour Paf,

Merci pour m'avoir répondu

Je planche depuis hier soir et je ne m'en sors pas LOL

J'ai testé ton code mais ça plante :

Code:

Sub Macro1()
    Range("A4:b100").Select
    Range("$E$4").AutoFilter Field:=1, Criteria1:="A Rappeler"
    Range("$E$4").AutoFilter Field:=2, Criteria1:=Format(Date, "dd mm yy")
  
'    Selection.AutoFilter Field:=2, Criteria1:="=<6"
'    ', Operator:=xlAnd, Criteria2:=">5"
    Range("a1").Select
End Sub

Je remets le fichier avec ton code ... et je continue mes recherches.
Amicalement,
arthour973

Usine à gaz · 22 Février 2019

Je viens de modifier le code et ça semble marcher ... Euréka
Je teste et je reviens

Usine à gaz · 22 Février 2019

Super de chez super il semble bien que ça marche

Je joins le classeur car ça peut en intéresser d'autres.

Juste un truc :
Il ne filtre que sur la date du jour : ça tombe bien, c'est mon besoin LOL
Mais si je veux filtrer sur une autre date, c'est possible ?
Encore un grand merci.
amicalement,
arthour973,

Paf · 22 Février 2019

pour filtrer sur les dates notamment, il faut que le critère ait le même format que les cellules à trier.

dans la colonne F la date à le format "jj mm aa" (ou dd mm yy) il faut donc appliquer le même format au critère

VB:

MaDate=Date ' tri date du jour

ou

VB:

Madate = range("A4")  '  tri sur cellule contenant une date

ou

VB:

MaDate= CDate("28/02/2019") ' tri sur date saisie manuellement

et

VB:

Range("$E$5").AutoFilter Field:=2, Criteria1:=Format(MaDate, "dd mm yy")

Usine à gaz · 22 Février 2019

Re-Paf,

Encore merci pour ces nvx codes.
Je dois sortir et ce soir le site sera fermé.
Je teste et je te réponds ce WE
Bonne soirée à toutes et à tous

Usine à gaz · 22 Février 2019

Re -paf,
Je réponds avant que le site soit fermé.
LOL je n'y arrive pas, ça m'affiche rien du tout alors que je pense (sauf erreur) que A1 est bien formaté comme dans le code.
Si tu veux bien encore me donner un petit coup de neurones, je joins le classeur.
Amicalement,
arthour973

Paf · 23 Février 2019

je n'ai pas dit que la cellule (qui allait servir de critère) devait être formatée comme dans le code, mais que le critère de recherche devait être formaté comme les cellules à trier.

Donc s'il y a une date en A1 : OK quelque soit son format (à vérifier quand même) pourvu que ce soit une date.

Mais d'où sortez vous ce format :
Selection.AutoFilter Field:=2, Criteria1:=Format(Range("A1"), "jj mm aa")

?

ChTi160 · 23 Février 2019

Bonjour Cath
Bonjour le Fil (Paf),le Forum
ceux ci peut être

VB:

Sub Macro2()
Dim Dte
Dte = Format(Range("A1"), "mm/dd/yyyy")
With Cells(4, 1)
     .AutoFilter
     .AutoFilter Field:=1, Criteria1:="A Rappeler"
     .AutoFilter Field:=2, Criteria1:=">=" & Dte, Operator:=xlAnd, Criteria2:="<=" & Dte
End With
End Sub

jean marie

Paf · 23 Février 2019

Bonjour Chti60,

les données en colonne B sont des dates au format personnalisé "jj mm aa", et
... Format(Range("A1"), "mm/dd/yy") ne fonctionne pas correctement.

J'avais proposé au post 5:
Range("$E$5").AutoFilter Field:=2, Criteria1:=Format(Date, "dd mm yy")
qui fonctionne pour ce type d'affichage.

Je crois que arthour973 à fait un méli-mélo dans les formats à appliquer.

Usine à gaz · 23 Février 2019

Bonjour Jean Marie, Paf, le Forum,
Bon WE à toutes et à tous,

Jean Marie : merci pour m'avoir répondu ... je vais tester

Paf : c'est bon ça marche maintenant, grâce à toi
Je crois que @arthour973 à fait un méli-mélo dans les formats à appliquer. LOL c'était ben vrai ça

Je joins le fichier.
amicalement,
arthour973

XL 2016 filtre 2 critères

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Paf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Paf

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Discussions similaires