Souci avec listbox

j ai un tableau structure de 13 colonnes, si je mets For J = 1 To 10 ma lstebox se rempli correctement mais 
lorsque je mets For J = 1 To 11  un message d erreur apparait could not set the column property invalid property value

With Sheets("ARTICLES").ListObjects(1)

Dim I As Integer
Dim J As Integer
Dim V As Integer
'AR = .DataBodyRange
    With LISTART
       ' .List = AR
        .ColumnCount = 13
        .ColumnWidths = "100;50;50;50;10;10;10;50;50;50;50;50;50"
    End With
    Dim O1 As Worksheet  'déclare la variable O1 (Onglet 1)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)

    Set O1 = Sheets("ARTICLES") 'définit l'onglet O1
    'Set f = Sheets("Bdd")
    TC = O1.Range("A1").CurrentRegion 'définit le tableau de cellules TC
  With LISTART 'prend en compte la ListBox1
        .Clear 'efface la ListBox1

        V = 0
        For I = 2 To UBound(TC, 1) 'boucle 1 : sur toutes les lignes du tableau TC (en partant de la seconde)
            'condition : si la valeur en colonne du tableau TC est égale à la valeur de la ComboBox1
            If (TC(I, 3) = LBLNOMCLI) Then
            '
                .AddItem 'I 'ajoute le numéro de ligne dans la colonne 0 (cachée) de la ListBox1
                For J = 1 To 10 'boucle 2 : sur les autres colonnes
                    .Column(J - 1, V) = TC(I, J) 'ajoute la valeur en colonne J du tabelau TC à la colonne J de la ListBox1

                Next J 'prochiane colonne de la boucle 2
                V = V + 1 'incrénete V
                'S = S + TC(i, 8)

            End If 'End If 'fin de la condition

        Next I  'prochaine ligne de la boucle 1
    End With 'fin de la prise en compte de la ListBox1

End With

Bonjour,

La méthode Additem d'une listbox est limitée à 10 colonnes.

Pour en avoir plus > il faut passer par une variable tableau ...

Exemple : https://forum.excel-pratique.com/excel/listbox-nombre-de-colonnes-max-79872

ric

apparemment additem se limite a 10 colonnes . meme si je n affiche que 5 .

Ce code prend la liste mais n affiche que la 1 ere colonne pourtant il est copié d un fichier qui affiche le resultat

ENFIN , ca marche

merci RIc , je t aime

maintenant je bloque sur comment filtrer ce listbox avec un textbox

comment filter ce genre de listbox a plus de 10 colonnes

comment changer code pour comparer a une valeur exacte d un textbox

If InStr(1, TV(I, J), Me.Text1.Value, vbTextCompare) <> 0 Then

Bonjour,

Est-ce le bon fichier ? > car ne ne vois pas ce bout de code dans ton fichier > ni ce qui se passe avant et ni ce qui se passe après ...

C'est schnu un peu ...

Peut-être ...

'  simplement
If TV(I,J) = Me.Textbox1 then

' ou encore
If CStr(TV(I,J)) = Me.Textbox1 then

ric