création d'une listbox à partir d'une ligne
Bonjour à tous,
Lorsque je souhaite créer une listbox à partir d'item appartenant à une colonne et lorsque ces items sont des variables en nombre inconnu, j'utilise, pour la colonne "A", le code suivant :
Code:
1 2 3 4 5 6
| Private Sub UserForm_Initialize()
Dim DerCell As String
'détermination de la longueur de la listbox1
DerCell = Range("A1").End(xlDown).Address
ListBox1.RowSource = "A1:" & DerCell
ListBox1.Height = ListBox1.Font.Size * (ListBox1.ListCount) * 1.25 |
Je pensais que, en remplaçant xlDown par xlToRight, je pourrais obtenir une listbox contenant les item inscrit en ligne1... Mais je n'obtiens, en affichage de la listbox, que le premier item, celui figurant en "A1".
D'où ma demande d'aide sachant que, en desespoir de cause, je peux toujours imaginer de recopier, un peu plus loin, ma ligne en colonne, puis de créer la listbox comme ci-dessus et, enfin, après disparition de la nécessité, d'effacer la colonne. Cependant, je trouve cela inélégant tout autant qu'une preuve de mon ignorance du langage vba.
Merci de vos conseils.
Cordialement,
Maurice GUILLIER