Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Filtre auto & macro

5 réponses
Avatar
ManBas
Bonsoir à tous,
Je ne parviens pas à faire exécuter un filtre auto par macro.
La cellule de titre semble activée (flèche bleue) mais les enregistrements
demeurent invisibles.
Que me conseillez-vous?
Mille merci d'avance

Dim DateChoisie
DateRCP = InputBox("date au format jj/mm/aaaa")
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="DateChoisie", Operator:=xlAnd

5 réponses

Avatar
JB
Bonjour,

Il faut inverser le jour et le mois:

Selection.AutoFilter Field:=1,
Criteria1:=Format(DateChoisie,"mm/dd/yy"), Operator:=xlAnd

JB

Bonsoir à tous,
Je ne parviens pas à faire exécuter un filtre auto par macro.
La cellule de titre semble activée (flèche bleue) mais les enregistre ments
demeurent invisibles.
Que me conseillez-vous?
Mille merci d'avance

Dim DateChoisie
DateRCP = InputBox("date au format jj/mm/aaaa")
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="DateChoisie", Operator :=xlAnd


Avatar
ManBas
Bonsoir JB,
Merci mais...
Ben non! toujours pas!
La macro fonctionnait déjà s'il n'y apas la ligne de titre, mais avec elle
ça ne tourne pas.
????

"JB" a écrit dans le message de news:

Bonjour,

Il faut inverser le jour et le mois:

Selection.AutoFilter Field:=1,
Criteria1:=Format(DateChoisie,"mm/dd/yy"), Operator:=xlAnd

JB

Bonsoir à tous,
Je ne parviens pas à faire exécuter un filtre auto par macro.
La cellule de titre semble activée (flèche bleue) mais les enregistrements
demeurent invisibles.
Que me conseillez-vous?
Mille merci d'avance

Dim DateChoisie
DateRCP = InputBox("date au format jj/mm/aaaa")
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="DateChoisie",
Operator:=xlAnd


Avatar
JB
Exemple en PJ: http://cjoint.com/?hdwDPCj7Bd

JB


Bonsoir JB,
Merci mais...
Ben non! toujours pas!
La macro fonctionnait déjà s'il n'y apas la ligne de titre, mais avec elle
ça ne tourne pas.
????

"JB" a écrit dans le message de news:

Bonjour,

Il faut inverser le jour et le mois:

Selection.AutoFilter Field:=1,
Criteria1:=Format(DateChoisie,"mm/dd/yy"), Operator:=xlAnd

JB

Bonsoir à tous,
Je ne parviens pas à faire exécuter un filtre auto par macro.
La cellule de titre semble activée (flèche bleue) mais les enregist rements
demeurent invisibles.
Que me conseillez-vous?
Mille merci d'avance

Dim DateChoisie
DateRCP = InputBox("date au format jj/mm/aaaa")
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="DateChoisie",
Operator:=xlAnd




Avatar
ManBas
Merci pour le fichier.
Je vais essayer de faire fonctionner le truc chez moi, mais je ne vois
toujours pas ce qui cloche!

"JB" a écrit dans le message de news:

Exemple en PJ: http://cjoint.com/?hdwDPCj7Bd

JB


Bonsoir JB,
Merci mais...
Ben non! toujours pas!
La macro fonctionnait déjà s'il n'y apas la ligne de titre, mais avec elle
ça ne tourne pas.
????

"JB" a écrit dans le message de news:

Bonjour,

Il faut inverser le jour et le mois:

Selection.AutoFilter Field:=1,
Criteria1:=Format(DateChoisie,"mm/dd/yy"), Operator:=xlAnd

JB

Bonsoir à tous,
Je ne parviens pas à faire exécuter un filtre auto par macro.
La cellule de titre semble activée (flèche bleue) mais les
enregistrements
demeurent invisibles.
Que me conseillez-vous?
Mille merci d'avance

Dim DateChoisie
DateRCP = InputBox("date au format jj/mm/aaaa")
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="DateChoisie",
Operator:=xlAnd




Avatar
AV
Lorsqu'il s'agit de filtrer des dates entre bornes et que les bornes sont sur
une feuille de calcul, le filtrage ne pose pas de problème particulier sous
réserve que l'on parle à Excel en N° de série et non en dates formatées car,
dans ce cas, il y a conflit avec les formats US.
Exemple avec la plage [A:A] contenant des dates de formats quelconques, voire
différents :
[A:A].AutoFilter Field:=1, Criteria1:=">=" & [E1] * 1, Operator:=xlAnd,
Criteria2:="<=" & [F1] * 1

L'affaire devient plus délicate lorsqu'il s'agit de filtrer sur UNE date et non
plus entre des bornes et que, en prime, les formats sont susceptibles d'être
variés...
Une astuce : utiliser un double critère même pour le filtrage sur une seule date
Quelques solutions là :
http://cjoint.com/?hejdUyZPFf

AV