Discussion :

[davidme]

Bonjour à tous,

J'ai un souci qui me laisse bien perplexe depuis quelques jours, en effet j'insère une date dans une textbox, celle ci est récupérer dans une cellule excel ( mise au format date désiré au préalable). Jusqu'ici rien de bien méchant, par suite j'utilise cette date pour faire le tri dans un tableau => OK cela fonctionne.

Là ou cela devient étrange c'est qu'ensuite je souhaite utilisé cette date dans un filtre avancée où la date est un des critères :

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("vox").Range(Cells(1, 1), Cells(lig, 9)).AdvancedFilter _
 Action:=xlFilterCopy, _
 CriteriaRange:=Sheets("FILTRE").Range("A1:D2"), _
 CopyToRange:=Sheets("PRO").Range("A4:H4"), _
 Unique:=False

Et là rien ne fonctionne...pourtant mon filtre fonctionne correctement car si je rentre ma date en manuelle dans la cellule recevant la TEXTBOX cela fonctionne mais dès que je passe par la TEXTBOX mon filtre ne me renvoi rien. D'ailleurs étrangement il me note dans la cellule en question que ma date est à 2 chiffres (et cela lui semble étrange) alors que c'est bien ce que je demande comme format.

Auriez vous une idée?

merci pour vos retours

[kiki29]

Salut, toujours utile : Comprendre et gérer les dates sous Excel et en VBA et pourquoi pas aussi ceci

[Docmarti]

Bonjour.

Et quel est ton code pour écrire la date sur la feuille "Filtre" ?

Et qu'est-ce qu'une date à 2 chiffres ?

Je suggérerais ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sheets("FILTRE").Range("A2").NumberFormat = ""
Sheets("FILTRE").Range("A2").Value = CDate(TextBox1.Text)
 
Set f = Sheets("vox")
f.Range(f.Cells(1, 1), f.Cells(lig, 9)).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("FILTRE").Range("A1:A2"), _
CopyToRange:=Sheets("PRO").Range("A4:I4"), _
Unique:=False