Discussion :

[rvdth]

Voila j'ai des comboBox à remplir, leurs noms : combo_1, combo_2, ...

et je voulais savoir s'il était possible de retrouver l'objet à partir de son nom (string)

le but étant de faire une boucle de type

for n=1 to nombreDeCombo
combo_n.addRange(...)
end for

Merci

[BCmDev]

Si la combo est un contrôle de la feuille, alors (Me est la Form) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim comboBox As ComboBox = Me.Controls.Item("comboBoxName")

Mais si tu as beaucoup de contrôles ou si tes contrôles sont dans des conteneurs, le plus simple est peut-être de stocker tes combos dans une table de hachage.

[Aspic]

Il y a plusieurs manière de le faire. Que veux tu faire exactement ? Tu peux aussi parcourir tous les controles et récupérer celui qui t'intéresse.

[rvdth]

Mon problème est que les combobox se trouvent dans divers onglets, cardre, ... pour rendre le design plus accueillant! et avec la méthode du Me.controls.item("combobox1") il faut que j'aille chaque fois jusquà l'emplacement où elle se trouve.

Il y a-t-il un méthode plus générale ?
ex : Me.listdesobjects.item("combobox1") et directement je suis dessus.

Pour rappel mon but est de remplir une série de combo dont le nom varie en fonction du chiffre derrière! combo_1, combo_2, combo_3

[Aspic]

Oui par exemple, si tu la mis dans un panel, tu fais Me.MonPanel.Items("NOMDE TA COMBO")

[Kelpan]

Il te faut une méthode recursive qui vérifie chaque control enfant de chaque composants.

Exemple (à vérifier)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
Function ControlItem( _
   ByVal Str_NomControl As String _
) As Control
 
  ' Recherche du control
  Return RechercherControl(Me, Str_NomControl)
End Function
 
Function RechercherControl( _
   ByVal ctlParent As Control, _
   ByVal Str_NomControl As String _
) As Control
 
  Dim ctlEnfant As Control
  Dim ctlRech As Control
 
  ' Recherche du control dans la liste de controls
  For Each ctlEnfant In ctlParent.Controls
      If ctlEnfant.Name = Str_NomControl Then Return ctlEnfant
 
      If ctlEnfant.Controls.Count > 0 Then 
          ctlRech = RechercherControl(ctlEnfant, Str_NomControl)
          If Not IsNothing(ctlRech) Then Return ctlRech
      End If
  Next     
 
  Return Nothing
End Function

[Poulain]

Cette question a déjà été traité, avec des textbox je crois...

[Aspic]

Il te faut une méthode recursive qui vérifie chaque control enfant de chaque composants.

Pas besoin de récursivité normalement mais tout dépend d'où est positionné ton contrôle sur le formulaire.

Sinon pense à utiliser la fonction recherche si la question a déjà été traitée.