Utiliser la fonction Me.controls

[ToniConti]

Bonsoir à tous,

J'ai un petit problème pour utiliser la fonction Me.controls et j'implore la bienveillance des spécialistes

En gros je voudrais gros je voudrais initialiser une série de ComboBox avec chacune une série d'item et le tout en une seule boucle..

Je me suis lancé comme ceci :

For i = 1 To 16
For j = 18 To 48
Me.Controls (ComboBox & i & (.additem j))
Next i
Next i

L'idée c'était celle ci : ComboBox(i).additem j

Est que quelqu'un connaitrait une solution à mon problème ?
Merci d'avance

 

[Staple1600]

Re : Utiliser la fonction Me.controls

Bonjour



Essaye
Me.Controls ("ComboBox" & i )

Avec 3 combobox (test OK)

For i = 1 To 3
For j = 18 To 48
Me.Controls("ComboBox" & i).AddItem j
Next j
Next i

 

[ToniConti]

Re : Utiliser la fonction Me.controls

Merci pour ta réponse Staple,

Malheureusement ca ne marche pas

Peut être ne faut il pas utiliser cette fonction ?

Ce que je veux faire c'est :

For i = 1 to 16
For j = 18 to 48
ComboBox(i).additem j
next j
next i

Ca serait de créer les j objets dans les i ComboBox

 

[Staple1600]

Re : Utiliser la fonction Me.controls

RE



J'ai testé sous excel 200

Cela fonctionne

Ici il y a 3 combobox dans l'userform
nommés
ComboBox1
ComboBox2
ComboBox3

Private Sub UserForm_Initialize()
For i = 1 To 3
For j = 18 To 48
Me.Controls("ComboBox" & i).AddItem j
Next j
Next i
End Sub

 

[ToniConti]

Re : Utiliser la fonction Me.controls

Ha ok ,
désolé - enfin surtout merci !
Je suis tellement débutant que j'avais pas compris qu'il fallait mettre le ".additem" juste après !

Ca marche nickel ! Encore merci