boucle sur des listbox

[pierre]

Bonjour le Forum,

J'ai regardé les archives mais je n'ai pas trouvé ce que je cherchais. Mon probleme est le suivant:

J'ai un userform avec 15 listbox qui doivent contenir les cellules a1, a2,..a15 respectivement.
Je peux evidemment écrire 15 fois:

listbox1.value = range('a1')

en changeant le chiffre a chaque fois.
Mais existe t-il une autre solution pour programmer la meme chose ne moins de ligne?

J'ai essayé

for i=1 to 15
listbox&i.value = range('a'&i)
next i

mais evidemment ca ne fonctionne pas.

Quelqu'un a t-il une idée?

Merci bien

Pierre

 

[Hervé]

bonsoir pierre

sans avoir testé :

for j=1 to 15
for i=1 to 15
controls('listbox'&j).additem range('a'&i)
next i
next j

essayes comme ceci.

salut