listbox avec 2 colonnes

[14loulou]

Bonjour,

J'ai un scout pour remplir mon listbox avec 2 colonnes ...

je voudrais avoir un affichage comme ceci :
1111111 - Article1
2222222 - article2
etc ...

mais je n'y arrive pas

PS les données sont dans l'onglet "donnees"
Offset(0, 1).Value correspond a la reference article
Offset(0, 2).Value correspond a l'intitulé de l'article

voici le code actuel :

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;80"

'remplissage de la ListBox en fonction de la ComboBox
With Sheets("donnees")
    For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If CStr(cel.Value) = CStr(cbxligne.Value) Then
            Me.ListBox1.AddItem cel.Offset(0, 1).Value
        End If
    Next cel
End With

 

[Pierrot93]

Re : listbox avec 2 colonnes

Bonsoir Loulou

regarde le code ci-dessous si il peut t'aider :

With ListBox1
    .ColumnCount = 2
    .List = Range("A1:B" & Range("A65536").End(xlUp).Row).Value
End With

bonne soirée
@+

 

[14loulou]

Re : listbox avec 2 colonnes

Merci pour ta réponse,

Cela semble fonctionner cependant je n'arrive pas a l'intégrer a mon code actuel.

 

[14loulou]

Re : listbox avec 2 colonnes

Bonsoir,

Si qlq peux me donner un coup de main, j'ai passé ma soirée a testé mais sans résultat.

 

[bqtr]

Re : listbox avec 2 colonnes

Bonsoir 14loulou, Pierrot

Essaye ceci:

Déclare une variable en long, ici k

Dim k As Long

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;80"

'remplissage de la ListBox en fonction de la ComboBox
With Sheets("donnees")
    For Each Cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
        If CStr(Cel.Value) = CStr(cbxligne.Value) Then
            Me.ListBox1.AddItem Cel.Offset(0, 1).Value
            Me.ListBox1.Column(1, k) = Cel.Offset(0, 2).Value
            k = k + 1
        End If
    Next Cel
End With

A+

 

[14loulou]

Re : listbox avec 2 colonnes

Merci pour cette réponse

cela fonctionne.

 

[Pierrot93]

Re : listbox avec 2 colonnes

Bonjour loulou, Pierre Olivier

Aarf j'avais zappé le critère sur la combo, moi.... désolé..

bonne journée
@+