Importation de donnés dans listbox

**slash1994** · 03/12/2017, 13h51

Bonjour,

je sollicite votre aide car j'ai un souci de remplissage de Listbox.

Je veux une listbox à une colonne remplis à partir de colonne dans ma worksheets(1) (e.g : A1 B1 C1 etc) cependant, uniquement la valeur de la première colonne apparaît (A1) je n'arrive pas à avoir les autres voilà mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
 
Dim strAddress As String
 
strAddress = Worksheets(1).Range("A1").End(xlToRight).Address       --> strAddress prend bien la bonne valeur (L1) dans la fenetre espion
 
With ListBox1
   .ColumnHeads = False
   .MultiSelect = fmMultiSelectExtended
   .RowSource = "A1:" & strAddress
End With
 
End Sub

Ce qui me surprend c'est que ça marche si je prend les lignes (en utilisant donc end(xldown) à la place)

Par avance merci de votre aide !

**a_diard** · 03/12/2017, 15h14

range("A1:L1") il n'y a qu'une ligne.

Il te faudrait peut-être ("A1:A12")

**slash1994** · 03/12/2017, 16h38

je vois donc si je comprend bien RowSource ne reconnait pas les cellules d'une même ligne, je devrais donc transposer ces dernières en lignes dans un premier temps

Merci !

Invité · 03/12/2017, 17h55

Bonsoir,
ListBox1.List=application.transopse(range("A1:L1"))

**unparia** · 03/12/2017, 18h13

Bonjour
Bien Evidemment que oui, une listbox (liée ou non) peut ne correspondre qu'à une seule ligne de la feuille de calcul. Nul besoin de "transposer" !
Encore faut-il que sa propriété ColumnCount oit spécifiée.
En rappelant qu'elle est = 1 par défaut -->> si pas spécifiée -->> seule la 1ère colonne est bien évidemment affichée ...