J'aurais souhaité que quelque'un m'explique comment je peux faire pour intégrer dans ma listbox deux colonnes mais qui dans la source ne sont pas à coté l'une de l'autre.
J'ai mis en fichier joint, un excel avec userform à ouvrir. Celui ci comprend une listbox. Dans la feuil3 se trouve la source ou doit se servir la listbox. Comme vous pouvez le constater les deux colonnes de la source (feuil3) ne sont pas à coté l'une de l'autre (oui je sais je me répète).
Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnCount = 5
.List = Sheets("Feuil3").Range("A1:E8").Value
.ColumnWidths = "60;0;0;0;60"
End With
End Sub
PS: A mettre dans le code de l'userform.
(test OK sur mon PC)
Private Sub UserForm_Initialize()
Dim p As Range
With Sheets("Feuil3")
Set p = Cells(1, "A").Resize(Cells(Rows.Count, 1).End(3).Row, 5)
End With
With Me.ListBox1
.ColumnCount = 5
.List = p.Value
.ColumnWidths = "60;0;0;0;60"
End With
End Sub
Qui peut le plus (5 colonnes) peut le moins(2 colonnes)
Code:
Private Sub UserForm_Initialize()
Dim R As Range
With ListBox1
For Each R In Range("A2", [A6500].End(xlUp))
.AddItem R
.List(.ListCount - 1, 1) = R(1, 5)
Next
End With
End Sub