OVH Cloud OVH Cloud

Collection d'objets

1 réponse
Avatar
Droopy191
Salut,

J'ai plusieurs Combobox que je doit remplir à partir d'une feuille.
Une Combobox à remplir pas de pb mais je voudrais faire une boucle en vba.
J'avais en tete une idée de "collection" de Combobox
que je pourrais appeler successivement comme ci dessous:
Combobox[i]
Combobox[i+1]

Je n'arrive pas à retrouver la notion dans les propriétés:
Un exemple ou une piste m'aiderait

merci

--
DR

1 réponse

Avatar
JB
Bonjour,

http://cjoint.com/?hAfJgGBCBE

Remplit ListFillRange de tous les comboBox nommés Comboxxx

Sub ComboFeuille()
For Each c In ActiveSheet.OLEObjects
If Left(c.Name, 5) = "Combo" Then
c.ListFillRange = "liste"
End If
Next
End Sub

Cordialement JB


Salut,

J'ai plusieurs Combobox que je doit remplir à partir d'une feuille.
Une Combobox à remplir pas de pb mais je voudrais faire une boucle en v ba.
J'avais en tete une idée de "collection" de Combobox
que je pourrais appeler successivement comme ci dessous:
Combobox[i]
Combobox[i+1]

Je n'arrive pas à retrouver la notion dans les propriétés:
Un exemple ou une piste m'aiderait

merci

--
DR