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 🙂