Dim f, TBlBD()
Private Sub UserForm_Initialize()
Set f = Sheets("Prets")
TBlBD = f.Range("A2:N" & f.[A65000].End(xlUp).Row).Value
Me.ListBox1.ColumnCount = UBound(TBlBD, 2)
Me.ListBox1.ColumnWidths = "80;80;0;0;70;70;0;0;0;0;0;0;0;0"
CheckBox1 = True
End Sub
Private Sub CheckBox1_Click()
If Not Me.CheckBox1 Then
Dim Tbl()
For i = 1 To UBound(TBlBD)
If TBlBD(i, 7) > 0 Then
n = n + 1: ReDim Preserve Tbl(1 To UBound(TBlBD, 2), 1 To n)
For k = 1 To UBound(TBlBD, 2): Tbl(k, n) = TBlBD(i, k): Next k
End If
Next i
Me.ListBox1.Column = Tbl
Else
Me.ListBox1.List = TBlBD
End If
End Sub