Discussion :

[ippo_master]

Bonjour,

Je suis confronté à un ptit problème.
Dans ma userform, j'ai une listbox. D'habitude, je définis toujours la valeur "ColumnHeads" en vraie afin de disposer des en-têtes de colonne.
Mais dans mon cas, l'en-tête de colonne de la listbox est vide...
Est-il possible de le définir manuellement : en-tête colonne 1 = A, en-tête colonne 2 = B, etc.

Merci d'avance

NB : Le code qui alimente ma listbox

Code :

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

1
2
3
4
5
6
7
8
Do While Cells(k, 1).Value <> ""
    If Cells(k, 1).Value = NumFA Then
    UserForm1.ListBox1.AddItem Cells(k, 2)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Cells(k, 3)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 2) = Cells(k, 4)
    End If
    k = k + 1
 Loop

[SilkyRoad]

bonjour

ColumnHeads fonctionne uniquement avec la propriété RowSource.

Si tu utilises AddItem ou List(), tu peux éventuellement ajouter des Labels au dessus de la listBox pour "créer" des entêtes.


bonne soirée
michel

[ippo_master]

Mouep, c'est balo ça mais merci de cette précision.
Serait-il possible de faire l'équivalent du code que j'en mentionné dans mon post précédent avec la propriété row source ?

[SilkyRoad]

bonsoir

Serait-il possible de faire l'équivalent du code que j'en mentionné dans mon post précédent avec la propriété row source ?

Non, pas à ma connaissance, si les données ne sont pas dans une plage de cellules contigues.


bonne soirée
michel

[ippo_master]

Ou alors faudrait que je bricole pour que les infos sélectionées sont copiées dans un endroit de la feuille spécifique et rangées de manière verticale au fur et à mesure.
En finissant par un rowsource une fois la sélection faite :/

Je vais opter pour les labels et merci