listbox avec 2 colonnes

Pierrot93

XLDnaute Barbatruc

• 27 Avril 2009

• #2

Re : listbox avec 2 colonnes

Bonsoir Loulou

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

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

1

14loulou

XLDnaute Nouveau

• 27 Avril 2009

• #3

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.

 

Vote positif 0 Vote négatif

1

14loulou

XLDnaute Nouveau

• 27 Avril 2009

• #4

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.

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 27 Avril 2009

• #5

Re : listbox avec 2 colonnes

Bonsoir 14loulou, Pierrot

Essaye ceci:

Déclare une variable en long, ici k

Code:

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+

 

Vote positif 0 Vote négatif

1

14loulou

XLDnaute Nouveau

• 27 Avril 2009

• #6

Re : listbox avec 2 colonnes

Merci pour cette réponse

cela fonctionne.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Avril 2009

• #7

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
@+

 

Vote positif 0 Vote négatif