balayer des Combobox dans un formulaire

[RENAUDER]

Bonjour,
Dans un formulaire j'ai 10 combobox et chacune a un nom particulier.
Je sais les balayer et récupérer leur nom.

    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.ComboBox Then
         MsgBox Ctrl.Name
        End If
    Next Ctrl

Je récupère bien le nom de la Combobox dans le Msgbox
Maintenant, je voudrais pour chacune des ComboBox faire un Additem
J'ai pensé que ce code marcherait mais pas du tout.

For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.ComboBox Then
        For i = 1 To 10
        Ctrl.Name.AddItem i
        Next i
        End If
    Next Ctrl

J'ai l'erreur 424 , Objet requis
Qui a une petite idée ?

 

[MJ13]

Re : balayer des Combobox dans un formulaire

Bonjour

Je ne sais pas mais comme cela au pif (par pur hasard).

ME.Ctrl.Name.AddItem i

 

[wilfried_42]

Re : balayer des Combobox dans un formulaire

Bonjour Eric

à essayer, non testé

dim tablo(1 to 10), i as byte
i = 0 
for each ctrl in Me.controls
     If TypeOf Ctrl Is MSForms.ComboBox Then
          i = i + 1
          tablo(i) = ctrl.name
     end if
next  
For i = 1 To 10
     me.controls(tablo(i)).additem i   
Next i

maintenant tu peux definitr tablo(1 to 10) en public
et dans l'initialisation de ton usf : charger le tablo, il sera alors utilisable à tout moment

Edit salut Michel

 

[bqtr]

Re : balayer des Combobox dans un formulaire

Bonsoir,

A priori c'est le Name qui pose problème. Cela fonctionne :

Ctrl.AddItem i

A+

 

[MJ13]

Re : balayer des Combobox dans un formulaire

Re bonjour Wilfried, Bqtr

Oui en effet le name ne fait pas bon ménage avec addItem.

Voici l'exemple