VBA : PASSAGE DE PARAMETRE DANS FILTRE AUTOMATIQUE
2 réponses
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)
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
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
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" <opotonnier@discussions.microsoft.com> a écrit dans le message
de news:9D4EA586-8EA9-4A27-B38D-60D89297DC6F@microsoft.com...
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)
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
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
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" <opotonnier@discussions.microsoft.com> a écrit dans le message
de news:9D4EA586-8EA9-4A27-B38D-60D89297DC6F@microsoft.com...
> 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
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