indexer plusieurs combobox

Bonjour,
Sur ma feuille d'excel j'ai incrusté 10 combobox
Je veux les remplir des données similaires disons "a" et "b"
La methode fastidieuse etant :

Code:

---

1 2 3 4 5

combobox1.additem "a" combobox1.additem "b" ... combobox10.additem "a" combobox10.additem "b"

---

Comment indexer un combobx pour qu'avec une boucle je les fasse simplement,exemple :

Code:

---

1 2 3 4

for x=1 to 10 combobox(x).additem "a" combobox(x).additem "b" next

---

...mais ce genre d'indexation n'est pas accepté
PS : j'utilise office 2003
:P

Bonjour paulselvan le forum
bon alors en partant de ton idée on peut mais c'est pas la bonne méthode mais je te la donne tout de même

Code:

---

1 2 3 4

for x=1 to 10 controls("combobox"& x).additem "a" controls("combobox" & x).additem "b" next

---

maintenant si tu as une liste plus longue, admettons en colonné A de A2 à A et fin de colonne

Code:

---

1 2 3 4 5 6 7

sub remplir() dim i&,fin&,aa aa=feuil1.range("A2:A"& feuil1.range("A"&rows.count).end(xlup).row) for x= 1 to 10 controls("Combobox"& x).list=aa next x end sub

---

voilà là tu charges la liste en une seule fois
a+
papou:D

@Paritec
J'ai un bug dans

Code:

---

Controls("combobox" & x).AddItem "a"

---

peut etre parceque j'utilise excel d'office 2003 et qu'il ne reconnait pas Controls?
:roll:

Bonjour,

Première solution (rigide) si on est certain du nombre de Combos et de leurs noms :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test1() Dim x As Integer   For x = 1 To 10 With Sheets("MaFeuille").OLEObjects("ComboBox" & x).Object .AddItem "A" .AddItem "B" End With Next   End Sub

---

Seconde solution (plus souple) qui ne tient pas compte du nombre et des noms des Combos :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test2() Dim Obj As OLEObject   For Each Obj In Sheets("MaFeuille").OLEObjects If TypeOf Obj.Object Is MSForms.ComboBox Then Obj.Object.AddItem "C" Obj.Object.AddItem "D" End If Next Obj   End Sub

---

:ccool: