For Each ? In ? (collection) [Résolu]

[Liz99]

Bonjour,

J’ai un frame contenant 10 ComboBox

Je veux les initialiser avec une boucle For Each … Next au lieu de répéter 10 fois la même chose. :

Code :

1
2
3
For Each ComboBox In ????
…
Next ComboBox

Est-ce que ça se fait ? Dois-je déclarer une collection ? Déclarer un tableau et faire une boucle For Next ?

J’ai essayé toutes sortes de choses mais je n’y arrive pas.

Supposons que je renomme les ComboBox Boite 1 à 10, j’utilise toujours For Each ComboBox ou je dois changer les noms ?

Merci!

[Heureux-oli]

ComboBox est un membre de la collection Controls d'un formulaire.

Il suffit de faire une boucle sur tous les contrôles de ton formulaire, et n'utiliser que la valeur des contrôles qui sont des combo.

Code :

1
2
3
4
5
6
7
8
9
10
11
 
Sub TestCtrlBox()
Dim ctrl As Control
Load UserForm1
UserForm1.Show
 
For Each ctrl In UserForm1.Controls
Debug.Print ctrl.Name
Next
 
End Sub

[Liz99]

Mille mercis pour cette procédure, elle me sera fort utile.

Toutefois, elle traite tous les contrôles, dans l'ensemble du userform.

Je travaille en multipage et je veux cibler des groupes de contrôles en particulier. Je présume que je n'aurai pas le choix que de créer mes propres collections ?

Merci encore!

[Heureux-oli]

Dans la procédure que je viens de te donner, il est vrais que tous les contrôles sont traité, mais on peut récupérer leur nom, si tu donnes un nom par ComboXXXXX aux combo, tu peut vérifier si le nom commence par combo avec un left(ctrl.name, 5)
Si cette fonction renvoie combo, il faut traiter le contrôle, dans le cas contraire, passer au suivant.

Code :

1
2
 
If Left(ctrl.Name,5) = "combo" then   Ce que je dois faire

[Liz99]

Merci beaucoup, je vais expérimenter avec ça dès que je trouve deux minutes.