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 !