Autofilter et userform

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

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