Trouver un objet via son nom

Version imprimable

28/03/2008, 14h18
rvdth

Trouver un objet via son nom

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
28/03/2008, 14h53
BCmDev
Si la combo est un contrôle de la feuille, alors (Me est la Form) :
Code:

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.
28/03/2008, 18h32
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.
29/03/2008, 11h45
rvdth

Très intérressé

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
29/03/2008, 12h31
Aspic

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

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

Exemple (à vérifier)

Code:

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

29/03/2008, 13h45
Poulain

Cette question a déjà été traité, avec des textbox je crois...
29/03/2008, 13h58
Aspic

Citation:

Envoyé par Kelpan

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. ;)