Discussion :

[stepel]

Bonjour

Je m'arrache les cheveux et ne comprends pas l'origine de mon erreur :
Je voudrais tout simplement remplir ma listbox1 qui appartient au Userform1 au moment ou je clique sur l'OptionButton1.
Je lance mon Userform depuis la feuille 1 et les données de remplissage se trouvent sur la feuille 2.

Le code ci-dessous fonctionne, mais je voudrais ne pas à avoir à Activer la feuille 2. (Worksheets(2).Activate). Or si je ne le fais pas, ça plante, malgré la présence de Worksheets(2).Range(Cells(1, 1), Cells(Range("A100").End(xlUp).Row, 1)).Value à la ligne suivante.

Code :

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

1
2
3
4
5
Private Sub OptionButton1_Click()
  userform1.ListBox1.ColumnHeads = False
  Worksheets(2).Activate
  userform1.ListBox1.List() = Worksheets(2).Range(Cells(1, 1), Cells(Range("A100").End(xlUp).Row, 1)).Value
End Sub

Par contre si je code :

Code :

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

1
2
3
4
Private Sub OptionButton1_Click()
  userform1.ListBox1.ColumnHeads = False
  userform1.ListBox1.List() = Worksheets(2).Range("A1:A11").Value
End Sub

Ca marche très bien et sans avoir à activer la feuille 2. Or moi, je voudrais qu'Excel repère le nombre d'élément à copier sans lui imposer la cellule de fin de liste d'ou le Range(Cells(1, 1), Cells(Range("A100").End(xlUp).Row, 1))

Merci pour votre aide

[jfontaine]

Bonjour

As tu essayé en mettant Address a la fin (je n'ai pas fait de test)

Code :

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

1
2
userform1.ListBox1.List() = Worksheets(2).Range(Cells(1, 1).address, Cells(Range("A100").End(xlUp).Row, 1).address).Value
End Sub

NB : essai plutot comme cela

Code :

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

Userform1.Listbox1.Rowsource = Worksheets(2).Range(Cells(1, 1), Cells(Range("A:A").End(xlDown).Row, 1)).Address

[Philippe Tulliez]

Bonjour,
Rien ne t'interdit d'utiliser

Code :

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

1
2
 
 UserForm1.ListBox1.List() = Worksheets(2).Range("A1:A" & Range("A100").End(xlUp).Row).Value

[zazaraignée]

Je croyais que pour lier une liste à des items d'une feuille il fallait utiliser la propriété RowSource... En tous cas, moi, c'est toujours ce que je fait.

Code :

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

ListBox1.RowSource = Feuil2.Range("A2:D2")

par exemple.

Si les données de la liste ne changent pas, on peu définir une zone de nom (plage nommée) pour référencer un Range comme source d'un ListBox.

Si les données sont constamment modifiées ou augmentées par l'utilisateur, alors
la méthode End telle qu'indiquée par corona ou jfontaine est en effet tout indiquée.

[stepel]

J'ai solutionné mon problème. Mon erreur a été de placer "Worksheets(2)" devant le range. Par contre, il faut sans cesse rappeler à l'intérieur du range que les cellules citées sont dans la feuille 2.

Voici mon code qui fonctionne sans avoir besoin d'activer la feuille 2.

Code :

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

1
2
3
4
Private Sub OptionButton1_Click()
  userform1.ListBox1.ColumnHeads = False
  userform1.ListBox1.List() = Range(Worksheets(2).Cells(2, 1), Worksheets(2).Cells(Worksheets(2).Range("A100").End(xlUp).Row, 1)).Value
End Sub

Merci pour vos contributions (Jfontaine, Zazaraignée et Corona)