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

Staple1600

XLDnaute Barbatruc

• 29 Avril 2019

• #2

Bonsoir

A mettre dans le code de l'userform

VB:

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.

 

Vote positif 0 Vote négatif

D

dodineau

XLDnaute Occasionnel

• 29 Avril 2019

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Avril 2019

• #4

Re

Il suffit d'ajouter

VB:

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

 

Vote positif 0 Vote négatif

D

dodineau

XLDnaute Occasionnel

• 29 Avril 2019

• #5

C'est parfait.
Merci

 

Vote positif 0 Vote négatif