Code VBA pour REMPLISSAGE LISTBOX

[et1000lio]

Bonjour à tous,

J'ai trouvé récemment le code suivant pour l'enrichissement d'une LISTBOX par rapport à un fichier excel.
Je comprend le fonctionnement mais ce que je ne m'explique pas c'est que je ne peux pas visualiser dans la LISTBOX un nombre de colonnes au-delà de 9

Le message, image ci-jointe, s'affiche après le choix dans la liste déroulante dès lors que je modifie le code au-delà de 9 à la ligne For J = 1 To

    Private Sub Combobox1_Change() 'au changement dans la ComboBox1
    Dim I As Integer 'déclare la variable I (Incrément)
    Dim J As Byte 'déclare la variable J (incrément)

    With Me.ListBox1 'prend en compte la ListBox1
       .Clear 'efface le contenu
       For I = 1 To UBound(TC, 1) 'boucle 1 : sur toutes les lignes du tableau TC (en partant de la 1ère ligne)
           If TC(I, 1) = Me.ComboBox1.Value Then 'condition : si la valeur ligne I colonne 1 de TC est égale à la valeur de la ComboBox1
               .AddItem I 'ajoute le numéro de ligne dans la colonne 0 cachée
               For J = 1 To 11 'boucle 2 : sur les 9 autres colonnes de la ListBox
                   .Column(J, .ListCount - 1) = TC(I, J) 'ajoute les données du tableau
               Next J 'prochaine colonne de la boucle 2
           End If 'fin de la conditon
    etc.....

Merci d'avance pour vos retours d'explications.


Ci-joint le fichier exemple :

 

[Si...]

Re : Code VBA pour REMPLISSAGE LISTBOX

salut

pour avoir plus de 10 colonnes, il ne faut pas initialiser ligne par ligne mais plutôt passer, ici aussi, par un tableau.
Voir l'exemple joint (j'ai réduit le nombre de colonnes pour éviter le nom qui est déjà choisi. j'ai aussi déplacé la colonne Heure pour avoir un bon affichage.