Discussion :

[anyah]

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 :

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

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

[SilkyRoad]

bonjour


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

Code :

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

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 :

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

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 :

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

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

[anyah]

merci beaucoup bonne fin de journée