Problème macro filtre avancé périodes

Hello all,

Je viens à vous car je commence à me crisper sérieusement.

J'ai fait une petite macro afin de faire un filtre avancé par période.

Lorsque je sélectionne une plage sur une année, par exemple de 01/01/2016 au 01/01/2017, la macro fonctionne. Mais lorsque j'essaie de sélectionner seulement 6 mois, par exemple du 01/01/2016 au 30/06/2016, rien n'apparaît.

Voici mon code :

Private Sub CommandButton1_Click()
Sheets("SEARCH").Range("A5:W1000").ClearContents
  If Val(Application.Version) >= 12 Then
    [G2] = ">=" & Format(TextBox1, "dd/mm/yy")
    [H2] = "<=" & Format(TextBox2, "dd/mm/yy")
  Else
    [G2] = ">=" & TextBox1
    [H2] = "<=" & TextBox2
  End If
     Sheets("BDD").Range("A2:W111").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:H2"), CopyToRange:=Sheets("SEARCH").Range("A5"), Unique:=False
Unload Me

End Sub

Et en PJ vous trouverez mon petit fichier.

Un grand merci d'avance à celles et ceux qui prendront le temps de m'aider là dessus !

arochab

Bonjour,

[surligner]

Sub filtrepériode()
Sheets("BDD").Range("A2:W1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("CHOIX").Range("G2:H2"), CopyToRange:=Sheets("SEARCH").Range("A5"), Unique:=False
End Sub

[/surligner]

c'est plutot,

Sub filtrepériode()
Sheets("BDD").Range("A2:D1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("CHOIX").Range("G1:H2"), CopyToRange:=Range("dest"), Unique:=False
End Sub

mais en modifiant les valeurs des critères et aussi nommer la destination, voir sur ce fichier,