Autofilter et userform

[Laurent]

Bonjour a tout le forum,

Voila mon souci, j'ai essayé d'intégrer un petit module de recherche à ma base de données en utilisant l'autofilter dans un userform. Pour cela, je me suis lmargement inspiré (même completement) d'uine démo de @Thierry que l'on peut trouver dans l'excellent "Thierry pack 2".

Mon tri fonctionne correctement suir les premières Listbox mais les dernières me retournent le titre de la colonne que je veux filtrer. Bref on joue avec mes nerfs... lol

je vous ais joint le fichier concerné pour que vous puissiez juger sur pièce.

Voila, merci à ceux qui pourront m'aider

@++
Laurent

 

[michel]

bonjour Laurent

le probleme est peut etre lié à la valeur de la Listbox3 , qui n'est pas reconnue comme un format date dans le filtre . tu peux essayer de remplacer Listbox3 par CDate(ListBox3)

Private Sub ListBox3_Click()
Dim Cell As Range
Dim r As Range
Dim i As Integer
Dim L As Integer
Dim TabV() As String
ListBox4.Clear
ListBox5.Clear

With WS.Range("A2")
.AutoFilter 3, CDate(ListBox3)
.AutoFilter 4
End With

L = WS.Range("A65536").End(xlUp).Row
If L < 2 Then
GoSub rien
End If
Set r = WS.Range("D3" & L)
Set r = r.SpecialCells(xlCellTypeVisible)
ReDim TabV(0 To r.Count - 1)
For Each Cell In r
TabV(i) = Cell.Value
i = i + 1
Next
ListBox4.List = TabV
rien:
End Sub


j'espere que cela pourra t'aider

bon apres midi
MichelXld

 

[Laurent]

Merci Michel,

je suis désolé de te répondre si tardivement mais je n'avais pas vu ta réponse.
En tout cas Ta solution est impecable, elle résout parfaitement mon problème.
Tu m'enlèves une fière chandelle du pied...lol

Merci encore
Et à bientôt.

Laurent