Formulaire de Recherche et Affiche le résultat dans une listbox

Bonjour le forum,

J'ai un bouton de RECHERCHE que je n'arrive pas à codé.

J'aimerais que ce bouton recherche tous l'enregistrement effectué dans la Feuille(STOCK) à une date saisie dans un texbox que j'ai appelé (période à chercher) et affiche les résultats trouver dans une listbox.

Merci de votre aide.

J'en serai reconnaissant !

Bonsoir,

Option Compare Text
Private Sub UserForm_Initialize()
  ' http://boisgontierjacques.free.fr
  Set f = Sheets("Stock")
  Set d = CreateObject("Scripting.Dictionary")
  BD = f.Range("A2:H" & f.[A65000].End(xlUp).Row).Value
  Me.ListBox1.List = BD
  For i = LBound(BD) To UBound(BD)
     d(BD(i, 7)) = ""
  Next i
  Me.ComboBox1.List = d.keys
  Me.ListBox1.ColumnCount = 7
  Me.ListBox1.ColumnWidths = "50;80;50;50;100;50;50"
End Sub

Private Sub ComboBox1_click()
  Dte = CDate(Me.ComboBox1): n = 0
  Dim Tbl()
  For i = 1 To UBound(BD)
    If BD(i, 7) = Dte Then
        n = n + 1: ReDim Preserve Tbl(1 To UBound(BD, 2), 1 To n)
        For k = 1 To UBound(BD, 2): Tbl(k, n) = BD(i, k): Next k
     End If
  Next i
  Me.ListBox1.Column = Tbl
End Sub

Ceuzin

Bonsoir,

ci-jointe autre proposition

Bonjour #CEIZIN et #THEV,

Je vous respect

Les deux fichiers fonctionne parfaitement

Je vs remercié une fois encore