Lister plusieurs colonnes dans une listbox

[LaurentG]

Bonjour,

J'essaie de lister 2 colonnes dans une listbox mais sans succès.
Je m'explique :

Dans mon classeur, j'ai les colonnes a & b qui contiennent des données, et la colonne c qui contient des coches ou non.

Dans mon usf j'ai deux listbox, qui affiche les données en fonction de la présence d'un 'X' dans la colonne C. (Si présence de 'X' alors liste dans listbox de droite, sinon dans colonne de gauche).

voici le code que j'utilise :

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox2.ColumnCount = 2
    
    
Dim RgListSource As Range
Dim i As Integer
Dim VarItem As Variant

Fin_Liste = Range('a15000').End(xlUp).Row
For i = 1 To Fin_Liste
Cells(i, 1).Select
VarItem = ActiveCell.Value
If ActiveCell.Offset(0, 2).Value = 'x' Then
ListBox1.AddItem VarItem
ListBox1.List([b]i[/b], 2) = ActiveCell.Offset(0, 1).Value
Else
ListBox2.AddItem VarItem
ListBox2.List([b]i[/b], 2) = ActiveCell.Offset(0, 1).Value
End If
Next i

TextBox1.Value = ListBox2.ListCount & ' Sections non applicables'
TextBox2.Value = ListBox1.ListCount & ' Sections applicables'
End Sub

Or les deux 'i' en gras me posent problème. J'ai un mge d'erreur 'impossible de définir la propriété List. Index de table de propriétés non valide'.

Quelqu'in peut m'aider? merci beaucoup.

Laurent
[file name=SELECTSECTIONS.zip size=14769]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SELECTSECTIONS.zip[/file]

 

[Hervé]

Bonjour laurent, tout le monde

essayes comme ceci :

ListBox1.ColumnCount = 2
ListBox2.ColumnCount = 2
       
       
Dim RgListSource As Range
Dim i As Integer
Dim VarItem As Variant

Fin_Liste = Range('a15000').End(xlUp).Row
For i = 1 To Fin_Liste
Cells(i, 1).Select
VarItem = ActiveCell.Value
If ActiveCell.Offset(0, 2).Value = 'x' Then
ListBox1.AddItem VarItem
ListBox1.List(ListBox1.ListCount - 1, 1) = ActiveCell.Offset(0, 1).Value
Else
ListBox2.AddItem VarItem
ListBox2.List(ListBox2.ListCount - 1, 1) = ActiveCell.Offset(0, 1).Value
End If
N

salut