Mise en variable d'un ComboBox

BenHarber · 23 Décembre 2005

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 · 23 Décembre 2005

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 · 23 Décembre 2005

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

Mise en variable d'un ComboBox

BenHarber

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

BenHarber

XLDnaute Occasionnel

Discussions similaires