identification combobox dans feuille excel

kiorys · 10 Septembre 2007

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 · 10 Septembre 2007

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 :

Code:

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) :

Code:

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

@+

kiorys · 10 Septembre 2007

Re : identification combobox dans feuille excel

merci Porcinet82,

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

Kiorys

identification combobox dans feuille excel

kiorys

Guest

porcinet82

XLDnaute Barbatruc

kiorys

Guest

Discussions similaires

identification combobox dans feuille excel

kiorys

Guest

porcinet82

XLDnaute Barbatruc

kiorys

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency