XL 2016 remplir une combobox à l'ouverture d'un userform

[dodineau]

Bonjour à toutes et tous.
J'ai un userform qui comporte une combobox.
Quand j'ouvre ce userform je crée une liste dans une feuille qui comporte entre 1 et 26 lignes.
Je voudrais que cette liste soit chargée dans le combobox.
Je n'arrive pas à rentrer les données dans ce combobox.
Merci pour votre aide.
A+

 

[Staple1600]

Bonsoir

A mettre dans le code de l'userform

Private Sub UserForm_Initialize()
Dim DerLig&
With Sheets(1)
DerLig = .Cells(Rows.Count, 1).End(3).Row
ComboBox1.List = .Range("A1:A" & DerLig).Value
End With
End Sub

PS: Les données sont sur la feuille 1 dans la colonne A.

 

[dodineau]

Merci ça fonctionne.
J'ai oublié de préciser que je voudrais que, par défaut, la valeur proposée soit la 1ere ligne.

 

[Staple1600]

Re

Il suffit d'ajouter

Private Sub UserForm_Initialize()
Dim DerLig&
With Sheets(1)
DerLig = .Cells(Rows.Count, 1).End(3).Row
ComboBox1.List = .Range("A1:A" & DerLig).Value
End With
ComboBox1.ListIndex = 0
End Sub

 

[dodineau]

C'est parfait.
Merci 🙂