[E-00] existe-t'il une collection de combobox?

bonjour,

j'ai essayé de trouver comment ecrire la collection de combobox mais je ne trouve pas dans l'aide de vba.
j'e n aurai besoin pour faire par exemple

Code:

---

1 2 3 4 5 6

for i= 1 to XXX.count for each CBx in XXX name=XXX.item(i).name etc... next CBx next i

---

estr ce que cela est possible?

merci pour vos réponses

bonjour


pour des objets placés sur la feuille de calcul :

Code:

---

1 2 3 4 5 6 7 8

Sub Boucle() Dim Obj As OLEObject   For Each Obj In ActiveSheet.OLEObjects If TypeOf Obj.Object Is MSForms.ComboBox Then _ MsgBox Obj.Name & ": " & Obj.Object.Value Next Obj End Sub

---

pour des objets placés dans un UserForm :

Code:

---

1 2 3 4 5

Dim Ctrl As Control   For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.ComboBox Then MsgBox Ctrl.Object.Value Next Ctrl

---

Une autre possiblité.

Code:

---

1 2 3 4 5

Dim Ctrl As Control   For Each Ctrl In Controls If TypeName(Ctrl) = "ComboBox" Then MsgBox Ctrl.Object.Value Next Ctrl

---

bon après midi
michel

merci beaucoup bonne fin de journée