Remplir une ComboBox avec une plage de cellule

[zazaraignée]

Et Dieu sait qu'elle revient souvent celle-là!

Scénario 1 : Le ComboBox est directement sur la Feuille de calcul

Il faut ajuster les valeurs des propriétés suivante (afficher la page de proriétés en cliquant sur le bouton avec une main qui pointe sur une feuille).
ListFillRange : A1:A7 ' j'ai mis les 7 jours de la semaine pour l'exemple
LinkedCell : C:2 ' pour afficher/conserver la valeur sélectionnée

Scénario 2 : Le ComboBox est sur un UserForm

Propriété RowSource : Feuil1!A1:A7 ' en mode Design

Code :

1
2
3
4
5
6
7
8
Option Explicit
 
Dim Valeur As String
 
Private Sub ComboBox1_Change()
    Valeur = ComboBox1.Text
    MsgBox Valeur
End Sub

[ypelissier]

Peut-on avoir des cellules en ligne comme A1:E1 ?

La seule façon que j'ai trouvée c'est d4utiliser le .AddItem comme ceci :

Code :

1
2
3
4
Dim MaCellule As Range
    For Each MaCellule In Range("A1:E1")
        ComboBox1.AddItem lrng_Element
    Next MaCellule

Mais s'il y a plus simple, je prend.

[tototiti2008]

Bonjour à tous,

Mais s'il y a plus simple, je prend.

Peut-être

Code :

ComboBox1.Column = Range("A1:E1").Value