colonne listbox

[axou91]

Bonjour à tous amis MACROMAN,

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

Merci pour votre aide.

@ Bientot

 

[Staple1600]

Re : colonne listbox

Bonjour à tous

axou91
Essaies cette astuce

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)

 

[Staple1600]

Re : colonne listbox

Bonjour Jean-Marcel


Voila du bel ouvrage que le tien et qui ne triche pas
(contrairement à moi cf mon précédent message )

 

[Staple1600]

Re : colonne listbox

Re

Une version un tit peu mieux

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

 

[Si...]

Re : colonne listbox

salut

Qui peut le plus (5 colonnes) peut le moins(2 colonnes)

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