identification combobox dans feuille excel

[kiorys]

salut le forum,

j'ai inséré differents controles de type combobox sur une feuille excel "toto" (et non sur un userform). Ces combobox ont les noms suivants "combox1", combobox2", "combobox3"...

Afin de les initialiser au travers d'une boucle "for...next" j'aurais souhaité savoir comment faire pour les identifier; j'ai essayé le code suivant mais ca marche pas 🙁
-------------------------------
dim tableau () as string
for i = 1 to 3
sheets("toto").controls("combobox" & i).list = tableau
next
-------------------------------
j'ai cherché sur les anciens post sans resultat. dsl si la question a été deja maintes fois traitées

merci

Kiorys

 

[porcinet82]

Re : identification combobox dans feuille excel

Salut,

Pas sur d'avoir tout compris, mais pour boucler par exemple sur des TextBox, tu peux utiliser ceci :

For i = 1 To 2
    valeur_Textbox = ActiveSheet.OLEObjects("TextBox" & i).Object.Value
Next i

Si tu veux boucler sur tous les objets de ta feuille, utilise plutot ca (la liste est mise dans les cellules a partir de la cellule A1) :

Sub test()
i = 1
For Each obj In ActiveSheet.OLEObjects
    Cells(i, 1).Value = obj.Name
    i = i + 1
Next obj
End Sub

@+

 

[kiorys]

Re : identification combobox dans feuille excel

merci Porcinet82,

"ActiveSheet.OLEObjects("TextBox" & i).Object...." est exactement ce que je cherchais. un grand merci

Kiorys