remplir listbox

[fred94000]

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

 

[hamcec]

Re : remplir listbox

Bonsoir fred94000,

je pense que la lenteur est due au fait que tu demandes à Excel de traiter 65536 lignes alors qu'il suffit de lui passer en paramètre seulement les lignes renseignées (avec par exemple l'utilisation d'un "CurrentRegion.Rows.Count").

A+
Hamcec.

 

[fred94000]

Re : remplir listbox

bonsoir et merci a toi HAMCEC.
J'ai cherché et trouve par usedRange et c'est nickel

 

[Pierrot93]

Re : remplir listbox

Bonjour,

une autre solution sans boucle, devrait être plus rapide :

Private Sub UserForm_Initialize()
With ListBox1
    .ColumnCount = 10
    .ColumnWidths = "30;30;50;50;150;60;80;30;30;30"
    .List = Worksheets("bd1").Range("A1:J" & Worksheets("bd1").Range("J65536").End(xlUp).Row).Value
End With
End Sub

bonne journée
@+