Pb filtre automatique avec 2 critères de sélection

[Domi]

Bonjour,
J'ai utilisé l'enregistreur automatique pour faire un filtre automatique sur la colonne "date d'un tableau qui comprend 3 colonnes (nom-taux-dates) pour trouver les noms dont la date est comprise entre le 31/12/2003 et le 01/01/2004. J'ai ensuite copié les données issues du filtre sur la feuille2. Lorsque j'effectue a macro, seule la ligne des titres apparaît dans les feuille 1 et feuille 2.
Merci de bien vouloir m'aider car je suis vraiment novice en la matière.
Domi

 

[jmt0]

tu peut mettre ton fichier ou un exemple avec le code vba s'il te plait


JMT0

 

[Domi]

Excuses moi, mais je n'ai pas pu joindre mon fichier.
Voici donc mon tableau, suivi du code VBA
Bonne réception
Domi

Nom Taux Date_Fin
PETIT 80 % 31-12-2003
GRAND 80 % 29-01-2003
BIBI 50% 31-03-2004
LILI 90 % 14-05-2004
FIFI 70 % 31-12-2003
RIRI 50% 15-01-2004
DUVAL 70 % 30-11-2003
DUPONT 80 % 30-04-2004
GARCIA 90 % 31-03-2004
MARTIN 50% 30-09-2007

Sub Macro1()
'
' Macro1 Macro
' ''
Sheets("Feuil1").Select
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=">=31/12/2003", Operator:=xlAnd _
, Criteria2:="<17/03/2004"
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Jean-Marie]

Bonsoir Domi, et JMT

Cela vient du problème du format des dates en VBA, il est sous la forme anglais MM/JJ/AAAA.

Change ta ligne

Selection.AutoFilter Field:=3, Criteria1:=">=31/12/2003", Operator:=xlAnd _
, Criteria2:="<17/03/2004"

par

Selection.AutoFilter Field:=3, Criteria1:=">=12/31/2003", Operator:=xlAnd _
, Criteria2:="<03/17/2004"

Fait attention au format d'affichage lors de la copie.

Bonne soirée ou plutôt good evening

@+Jean-Marie

PS JMT nous avons les mêmes initiales.