Discussion :

[LANGAZOU]

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.

listbox .xlsm

Merci pour votre appui.

[Kentarosan]

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

[Overeath]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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