Discussion :

[paulselvan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Paritec]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[paulselvan]

@Paritec
J'ai un bug dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[fring]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[paulselvan]