Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA : PASSAGE DE PARAMETRE DANS FILTRE AUTOMATIQUE

VBA : PASSAGE DE PARAMETRE DANS FILTRE AUTOMATIQUE

2 réponses
Avatar
opotonnier
Bonjour,

Voici mon objectif : dans un tableau contenant différents informations, je
souhaite filter via le filtre automatique d'Excel une colonne contenant des
dates.

Le problème : lors de l'application du filtre la date ne semble pas prise en
compte (pb de type varchar sur une colonne de date ??).
En revanche, si j'ouvre le menu personnalisé dans le filtre automatique, le
filtre s'applique.

Voici le bout de code que j'ai écrit :
date_limite = InputBox("Quelle est la date borne ?")
'date_limite = "<=" & date_limite
Cells(2, 3).Select
Selection.AutoFilter
Selection.AutoFilter Field:=16, Criteria1:="<>TERMINE" ', Operator:=xlAnd
Selection.AutoFilter Field:=17, Criteria1:="=ASAP", Operator:=xlOr,
Criteria2:="<=" & CDate(date_limite)

Merci de votre aide
Cordialement
Olivier
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonjour,
Essaye en ajoutant cette ligne :
date_limite = DateSerial(Year(date_limite), _
Month(date_limite), Day(date_limite))
juste après l'inputbox
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"opotonnier" a écrit dans le message
de news:
Bonjour,

Voici mon objectif : dans un tableau contenant différents informations, je
souhaite filter via le filtre automatique d'Excel une colonne contenant
des
dates.

Le problème : lors de l'application du filtre la date ne semble pas prise
en
compte (pb de type varchar sur une colonne de date ??).
En revanche, si j'ouvre le menu personnalisé dans le filtre automatique,
le
filtre s'applique.

Voici le bout de code que j'ai écrit :
date_limite = InputBox("Quelle est la date borne ?")
'date_limite = "<=" & date_limite
Cells(2, 3).Select
Selection.AutoFilter
Selection.AutoFilter Field:, Criteria1:="<>TERMINE" ',
Operator:=xlAnd
Selection.AutoFilter Field:, Criteria1:="=ASAP", Operator:=xlOr,
Criteria2:="<=" & CDate(date_limite)

Merci de votre aide
Cordialement
Olivier


Avatar
opotonnier
Merci de votre réponse mais la solution ne marche pas.

J'ai touvé la solution en gérant la date comme un nombre de jour et non avec
son format date.

Merci encore pour votre aide

Olivier

"Philippe.R" a écrit :

Bonjour,
Essaye en ajoutant cette ligne :
date_limite = DateSerial(Year(date_limite), _
Month(date_limite), Day(date_limite))
juste après l'inputbox
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"opotonnier" a écrit dans le message
de news:
> Bonjour,
>
> Voici mon objectif : dans un tableau contenant différents informations, je
> souhaite filter via le filtre automatique d'Excel une colonne contenant
> des
> dates.
>
> Le problème : lors de l'application du filtre la date ne semble pas prise
> en
> compte (pb de type varchar sur une colonne de date ??).
> En revanche, si j'ouvre le menu personnalisé dans le filtre automatique,
> le
> filtre s'applique.
>
> Voici le bout de code que j'ai écrit :
> date_limite = InputBox("Quelle est la date borne ?")
> 'date_limite = "<=" & date_limite
> Cells(2, 3).Select
> Selection.AutoFilter
> Selection.AutoFilter Field:, Criteria1:="<>TERMINE" ',
> Operator:=xlAnd
> Selection.AutoFilter Field:, Criteria1:="=ASAP", Operator:=xlOr,
> Criteria2:="<=" & CDate(date_limite)
>
> Merci de votre aide
> Cordialement
> Olivier