OVH Cloud OVH Cloud

Combobox

2 réponses
Avatar
Denys
Bonjour =E0 tous,

Sur un userform j'ai un combobox dont je voudrais que la=20
liste de choix possible provienne d'une feuille nomm=E9e=20
data. La raison est que le nombre de choix sera variable=20
dans le temps (plus de 200 maintenant).

J'ai fouill=E9 un peu avec Google et j'ai essay=E9 des trucs=20
comme
Private Sub UserForm_Initialize()
ComboBox9.List =3D Sheets("Data").Range("E5:E237").Address
ou encore
Combobox9.RowSource =3D Sheets("Data").Range
("E5:E237").Address

end sub

=C7a ne fonctionne pas... Quelqu'un saurait?

Merci

Denys

2 réponses

Avatar
Denys
J'ai trouvé.... en fouillant sur Google
Private Sub UserForm_Initialize()
Me.Controls("ComboBox9").RowSource = "Data!E5:E230"
end sub

Merci à Denis Michon qui avait répondu à quelqu'un en 2002

Denys

-----Original Message-----
Bonjour à tous,

Sur un userform j'ai un combobox dont je voudrais que la
liste de choix possible provienne d'une feuille nommée
data. La raison est que le nombre de choix sera variable
dans le temps (plus de 200 maintenant).

J'ai fouillé un peu avec Google et j'ai essayé des trucs
comme
Private Sub UserForm_Initialize()
ComboBox9.List = Sheets("Data").Range("E5:E237").Address
ou encore
Combobox9.RowSource = Sheets("Data").Range
("E5:E237").Address

end sub

Ça ne fonctionne pas... Quelqu'un saurait?

Merci

Denys

.



Avatar
Michel Gaboly
Bonsoir,

Tu peux également utiliser

ComboBox9.List = Sheets("Data").Range("E5:E237").Value

qui a l'avantage de fonctionner aussi bien sur les versions
Mac que Windows (RowSource n'existe pas sur Excel Mac).



J'ai trouvé.... en fouillant sur Google
Private Sub UserForm_Initialize()
Me.Controls("ComboBox9").RowSource = "Data!E5:E230"
end sub

Merci à Denis Michon qui avait répondu à quelqu'un en 2002

Denys

-----Original Message-----
Bonjour à tous,

Sur un userform j'ai un combobox dont je voudrais que la
liste de choix possible provienne d'une feuille nommée
data. La raison est que le nombre de choix sera variable
dans le temps (plus de 200 maintenant).

J'ai fouillé un peu avec Google et j'ai essayé des trucs
comme
Private Sub UserForm_Initialize()
ComboBox9.List = Sheets("Data").Range("E5:E237").Address
ou encore
Combobox9.RowSource = Sheets("Data").Range
("E5:E237").Address

end sub

Ça ne fonctionne pas... Quelqu'un saurait?

Merci

Denys

.




--
Cordialement,

Michel Gaboly
http://www.gaboly.com