Code ListBox multicolonne

Bonjour le Forum

une aide svp sur la syntaxe: remplir les colonnes 1, 2 et 3 d'une Listbox multicolonnes (3colonnes)

avec les colonnes B, E et G d'un tableau:

ya t il qqch de ce type à écrire:

ListBox1.List(1) = Ws.Range("B1:B" & Ws.Range("B" & Rows.Count).End(xlUp).Row)

ListBox1.List(2) = Ws.Range("E1:E" & Ws.Range("B" & Rows.Count).End(xlUp).Row)

ListBox1.List(3) = Ws.Range("G1:G" & Ws.Range("B" & Rows.Count).End(xlUp).Row)

bien sur ca ne marche pas sinon je poserais pas la question

Merci pour votre aide

Séb

Bonjour,

Essaie comme cela

'Dernière ligne renseignée
DerLig = Ws.Range("B" & Rows.Count).End(xlUp).Row
'Nombre de colonnes dans la ListBox
ListBox1.ColumnCount = 3
'Largeur des colonnes de la ListBox
ListBox1.ColumnWidths = "100;100;100"
For i = 1 To DerLig
   'Ajoute une ligne et insère la première donnée dans la colonne de gauche
    ListBox1.AddItem Ws.Range("B" & i)
   'Ajoute les deux autres données dans les colonnes de droite
    ListBox1.List(ListBox1.ListCount - 1, 1) = Ws.Range("E" & i)
   ListBox1.List(ListBox1.ListCount - 1, 2) = Ws.Range("G" & i)
Next i

A+

Parfait

merci bien

A+

Séb

Re voici le code:

.ComboBox1.AddItem Ws.Cells(2, Liste(0)).Value 'Entete premiere colonne

For NoCol = 1 To UBound(Liste)

.ComboBox1.Column(NoCol, 0) = Ws.Cells(2, Liste(NoCol)).Value 'Ajoute les autres entetes

For NoLigne = 5 To Ws.Range("B" & Rows.Count).End(xlUp).Row

.ComboBox1.AddItem Ws.Cells(NoLigne, Liste(0)).Value

.ComboBox1.Column(NoCol, NoLigne - 4) = Ws.Cells(NoLigne, Liste(NoCol)).Value

Next

Next

sachant que les titres du tableau sont en ligne 2 et que données en ligne 5

Voilà, si ca peut aider

A+

Séb