Rowsource combobox liste fixe

[bonoboas]

Bonjour,

J'aimerais mettre une liste FIXE telle que : 1;2;3;4;5;6;7;8;9;10;11;12;15;16;17;18;19;20
dans un combobox.

Dans propriété à la ligne rowsource, je ne trouve pas la bonne syntaxe.

Sauf que je ne veux pas faire référence à des cellules du tableur.

Merci d'avance

 

[Pierrot93]

Re : Rowsource combobox liste fixe

Bonjour,

utilise une boucle et la propriété "additem" :

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 20
    ComboBox1.AddItem i
Next i
End Sub

bonne journée
@+

 

[BOISGONTIER]

Re : Rowsource combobox liste fixe

Bonjour,

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array(1, 2, 3, 4, 5)
End Sub

JB

 

[bonoboas]

Re : Rowsource combobox liste fixe

Donc je ne mets rien dans les propriétés de combobox, je suis obligé de passé par du VBA ?

 

[Pierrot93]

Re : Rowsource combobox liste fixe

Re,

Donc je ne mets rien dans les propriétés de combobox, je suis obligé de passé par du VBA ?

avec les solutions proposées, oui.

 

[Misange]

Re : Rowsource combobox liste fixe

Bonjour
Une autre solution,
tu écris tes 1, 2, 3... dans une feuille du classeur (cachée éventuellement) et tu y fais référence dans la propriété rowsource :
data!A12:A34
ou bien tu nommes cette plage et tu fais référence à ce nom directement dans la propriété RowSource
mais tu ne peux pas écrire les valeurs directement dans la rowsource.

 

[bonoboas]

Re : Rowsource combobox liste fixe

Merci Misange j'ai pris votre solution.