Ajout des colonnes dans une LISTBOX

Bonjour le Forum,

je voudrais ajouter des colonnes sur ma Listbox. Actuellement lorsque je clique sur un nom dans le combobox il m'affiche uniquement les données existantes sur la colonne 2. existe t-il une solution pour afficher les données de la colonne 3 et 4.

Pièce jointe 276421

Merci pour votre appui.

Bien le bonjour,

Dans les propriétés de ta listbox (F4 quand tu es sur le UserForm) tu as un attribut columnCount, tu le passes à 3 et dans ColumnWidths tu met quelque chose comme 100; 50; 50 où chaque valeur représente la largeur d'une colonne.

Après pour renseigner les infos de ces colonnes tu dois passer par ListBox.List(numLigne, numCol) où numCol = 0 représente la première colonne (celle remplie par défaut lorsque tu fais AddItem), numCol=1 la deuxième colonne, etc.

(Il y a peut-être d'autre moyens, mais moi je fais comme ça)

J'espère avoir été assez clair :mrgreen:

Bonjour,
Essayes ça : (enlève ActiveSheet.Unprotect et ActiveSheet.Protect si ta feuille n'est pas protégée)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub UserForm_Activate() ActiveSheet.Unprotect Dim y As Integer, i As Integer, tabl() As Variant, j as integer   OptionButton1.Value = True   y = 2: i = 1 While Sheets("feuil1").Cells(y, 11) <> "" ReDim Preserve tabl(i) tabl(i) = Sheets("feuil1").Cells(y, 11) 'A ce moment la, la macro cherche toutes les valeurs dans la colonne K jusqu'à "" puis les insère dans la combobox y = y + 1: i = i + 1 Wend ComboBox1.Clear For i = 0 To UBound(tabl()) ComboBox1.AddItem tabl(i) Next i   y = 2: j = 1 While Sheets("feuil1").Cells(y, 12) <> "" ReDim Preserve tabl(j) tabl(j) = Sheets("feuil1").Cells(y, 12) ' Il fait de même avec la colonne L y = y + 1: j = j + 1 Wend ComboBox1.Clear For j = 0 To UBound(tabl()) ComboBox1.AddItem tabl(j) Next j   ActiveSheet.Protect End Sub

---

En ajoutant une variable a chaque fois comme i et j, tu peux augmenter le nombre de colonne qu'il y aura dans ta combobox
Si tu ne comprends pas quelque chose dans le code, n'hésite pas ( et si il y a une erreur, indique moi ce que ça t'affiche)

J’espère avoir répondu à ta demande
Cordialement, un aspirant à la programmation