Affichage ListBox en fonction d'une date textbox

Bonjour à tous,

Je dispose d'une base de données et d'un UserForm avec une ListBox qui récupère les informations de cette base de données. La ListBox s'ouvre avec mes données triées. Malgré tout mes efforts je n'arrive pas à rajouter une condition d'affichage des données en fonction d'une date qui est inscrit par défaut dans une textbox.

J'espère trouvé mon bonheur de solution sur ce forum. Et vous joint mon code .

Merci à tous par avance pour vos réponses.

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("MENU").Range("A1")
Me.Picture = LoadPicture("")
  Set f = Sheets("BDD_TRAIT_TOTAL")
  ColVisu = Array(1, 2, 3, 4, 5, 6, 7, 8)
  Ncol = UBound(ColVisu) + 1
  Set d = CreateObject("Scripting.Dictionary")
  BD = f.Range("A2:P" & f.[A65000].End(xlUp).Row).Value
TriMultiCol BD, LBound(BD), UBound(BD), 1
n = 0: Dim Tbl()
  For i = LBound(BD) To UBound(BD)
If Not d.exists(BD(i, 1)) Then
    d(BD(i, 1)) = ""
      c = 0: n = n + 1
            ReDim Preserve Tbl(1 To Ncol, 1 To n)
            For Each k In ColVisu
                c = c + 1: Tbl(c, n) = BD(i, k)
            Next k
End If

    Next i
    Me.ListBox1.Column = Tbl
  x = Me.ListBox1.Left + 15
  y = Me.ListBox1.Top - 9
  For Each k In ColVisu
    Set Lab = Me.Controls.Add("Forms.Label.1")
    Lab.Caption = f.Cells(1, k)
    Lab.Top = y
    Lab.Left = x
    x = x + f.Columns(k).Width * 1#
    temp = temp & f.Columns(k).Width * 1# & ";"
  Next

  temp = Left(temp, Len(temp) - 1)
  Me.ListBox1.ColumnCount = 8
  Me.ListBox1.ColumnWidths = "70;90;30;70;40;70;70;300"
  Me.ListBox2.ColumnCount = 3
  Me.ListBox2.ColumnWidths = "150;150;150"
End Sub

Bonjour,

Je ne vois pas de condition de date dans ce code... !

Je trouve ton Initialize inutilement surchargée de définitions de propriétés qui devraient être mises par défaut une fois pour toutes en utilisant la fenêtre de propriétés. Egalement, il est dommage que tu ne déclares pas les variables que tu utilises...

Cordialement.