Mise en variable d'un ComboBox

[BenHarber]

Bonjour à tous,
Je pensais vous laisser tranquille quelques jours, c'était certainement prétentieux de ma part !
Voilà mon nouveau problème : à l'activation d'un formulaire, j'ai fais une boucle par laquelle doivent s'initialiser 8 combobox.
Mon problème c'est que je n'arrive pas à mettre en variable l'objet combobox.
J'ai écrit un truc du style :

Dim zdl As Control
(...)
for i = 1 to 8
(...)
Select case i
case 1
(...)
set zdl = usf.lstd1
(...)
End select
(...)
zdl.AddItem element

Mais bien sur ça plante (j'ai l'habitude...)...

Quelqu'un peut-il m'indiquer la bonne 'mise en variable' ?

Merci d'avance pour vos conseils et idées.
Cordialement,
BenHarber

 

[PascalXLD]

Bonjour

Si tes combo s'appellent tous combobox1 puis 2 etc tu peux faire si j'ai bien compris le peu de code que tu mets

for i = 1 to 8
(...)
Select case i
case 1
(...)


End select
(...)
controls('Combobox' & i).AddItem element

 

[BenHarber]

Bonjour Pascal,
En fait, j'ai attribué à mes 8 combobox un nom spécifique (lstd1, lstd2...) mais tu m'as effectivement donné la solution :
1) J'ai déclaré : dim zdl as 'String'
2) A chaque boucle, j'initialise zdl en faisant :
zdl = usf.lstd1.Name,
3) et je remplis ma combobox comme suit :
usf.Controls(zdl).AddItem element.

C'est la sémantique ''Controls(zdl).AddItem '' que je ne parvenais pas à trouver.

Une fois de plus, je te dois une bougie orgueilleuse...heu, je veux dire une fière chandelle !!
Merci beaucoup.
BenHarber