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.
Cordialement.