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
Merci d'avance pour vos retours d'explications.
Ci-joint le fichier exemple :
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
Code:
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 :