Bonsoir a tous et toi le forum,
je souhaite remplir une listbox a 10 colonnes.
j'ai reussi a faire un code mais lorsque je clique sur le bouton, le userform met un certain temps a remplir la listbox.
j'aimerai savoir s'il n'y avait mieuxque cette formule.
Private Sub UserForm_Initialize()
Dim tablo() As Variant
Dim lig As Long, col As Long
Dim rang As Range
Set rang = Worksheets("bd1").Range("a1:j65536")
ReDim Preserve tablo(1 To rang.Rows.Count, 1 To rang.Columns.Count)
With rang
For col = 1 To .Columns.Count
For lig = 1 To .Rows.Count
tablo(lig, col) = rang.Cells(lig, col)
Next lig
Next col
End With
With ListBox1
.ColumnCount = 10
.ColumnWidths = "30;30;50;50;150;60;80;30;30;30"
.List = tablo
End With
dans l'attente merci
je souhaite remplir une listbox a 10 colonnes.
j'ai reussi a faire un code mais lorsque je clique sur le bouton, le userform met un certain temps a remplir la listbox.
j'aimerai savoir s'il n'y avait mieuxque cette formule.
Private Sub UserForm_Initialize()
Dim tablo() As Variant
Dim lig As Long, col As Long
Dim rang As Range
Set rang = Worksheets("bd1").Range("a1:j65536")
ReDim Preserve tablo(1 To rang.Rows.Count, 1 To rang.Columns.Count)
With rang
For col = 1 To .Columns.Count
For lig = 1 To .Rows.Count
tablo(lig, col) = rang.Cells(lig, col)
Next lig
Next col
End With
With ListBox1
.ColumnCount = 10
.ColumnWidths = "30;30;50;50;150;60;80;30;30;30"
.List = tablo
End With
dans l'attente merci