combobox avec indice

[mutzik]

Bonjour à toutes et tous

j'ai 10 combos sur une feuille (CBox1 à CBox10)

j'ai :

for cpt = 1 to 10
' ici je selectionne la premiere valaur à ajouter dans le CBox1
valeur = sheets('data').range('a' & cpt)

CBox & cpt.additem valeur --------> ca marche pas, là
next cpt

mille mercis

 

[Hervé]

Re : combobox avec indice

salut mutzik


essayes comme ceci :

controls("combobox" & cpt)

ou, si tu as renommé tes controles :

controls(" CBox" & cpt)

salut

 

[mutzik]

Re : combobox avec indice

Bonjour Hervé,

C'est bien ce que j'avais essayé, mais ya pas bon
il me dit (en entourant controls) : sub ou fonction non définie

v'là le code de test (avec 3 combo sur la feuille 1)
Sub test()
For i = 1 To 3
For j = 1 To 5
Controls("ComboBox" & i).AddItem j
Next j
Next i
End Sub

 

[Hervé]

Re : combobox avec indice

re 🙂

Ah, mais il s'agit de combobox placées sur une feuille, alors :

Sub test()
For i = 1 To 3
For j = 1 To 5
ActiveSheet.OLEObjects("combobox" & i).Object.AddItem j
Next j
Next i
End Sub

salut

 

[mutzik]

Re : combobox avec indice

Mille mercis Hervé, cétoké

mais j'avais bien précisé au début que mes combos etaient sur la feuille
;-)

 

[Hervé]

Re : combobox avec indice

re l'ami


OUPS 😱

je ne l'avais pas vu.

salut