Filtre automatique sur dates Excel 2003 vs 2007

job75

XLDnaute Barbatruc
Bonjour à tous,

Sur mon ordi avec Excel 2003 ces macros (élémentaires) fonctionnent bien :

Code:
Sub FiltreAuto1()
[A1:A10].AutoFilter 1, Date 'date du jour
End Sub

Sub FiltreAuto2()
[A1:A10].AutoFilter 1, CDate([B2])
End Sub
La date du jour est bien filtrée.

Par contre rien ne marche sur mon portable avec Excel 2010.

J'ai cet ordi depuis peu, je n'avais pas encore testé...

Merci d'avance si vous avez une explication (une option à cocher ?).

A+
 

Pièces jointes

  • Filtre Automatique Dates(1).xls
    35 KB · Affichages: 59

job75

XLDnaute Barbatruc
Re : Filtre automatique sur dates Excel 2003 vs 2007

Re,

Bon, c'est instructif, ça marche avec "=" :

Code:
Sub FiltreAuto1()
[A1:A10].AutoFilter 1, "=" & Date ' date du jour
End Sub

Sub FiltreAuto2()
[A1:A10].AutoFilter 1, "=" & CDate([B2])
End Sub
Désolé pour le dérangement :)

A+
 

Pièces jointes

  • Filtre Automatique Dates(2).xls
    44.5 KB · Affichages: 50

job75

XLDnaute Barbatruc
Re : Filtre automatique sur dates Excel 2003 vs 2007

Re encore,

En fait le filtre recherche les dates formatées :

Code:
Sub FiltreAuto1()
[A1:A10].AutoFilter 1, Format(Date, "dddd dd mmmm yyyy") ' date du jour
End Sub

Sub FiltreAuto2()
[A1:A10].AutoFilter 1, Format([B2], "dddd dd mmmm yyyy")
End Sub
A+
 

Pièces jointes

  • Filtre Automatique Dates(3).xls
    35 KB · Affichages: 98

job75

XLDnaute Barbatruc
Re : Filtre automatique sur dates Excel 2003 vs 2007

Re, pour en terminer,

et pendant qu'on y est, un petit coup sur le filtre élaboré (avancé) :

Code:
Sub FiltreElabore()
[A1:A10].AdvancedFilter xlFilterInPlace, [C1:C2]
End Sub
Il faut passer par le critère =A2=B$2

Noter qu'on n'a pas besoin de se casser la tête avec les formats...

A+
 

Pièces jointes

  • Filtre élaboré Dates(1).xls
    35 KB · Affichages: 124

Discussions similaires

Statistiques des forums

Discussions
312 413
Messages
2 088 200
Membres
103 766
dernier inscrit
mahieux