T ToniConti XLDnaute Junior 23 Avril 2008 #1 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
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 XLDnaute Barbatruc 23 Avril 2008 #2 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 Cliquez pour agrandir... Dernière édition: 23 Avril 2008 Vote positif 0 Vote négatif
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 Cliquez pour agrandir...
T ToniConti XLDnaute Junior 23 Avril 2008 #3 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc 23 Avril 2008 #4 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 Cliquez pour agrandir... Vote positif 0 Vote négatif
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 Cliquez pour agrandir...
T ToniConti XLDnaute Junior 23 Avril 2008 #5 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 Vote positif 0 Vote négatif
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