Discussion :

[SoGood]

Bonjour,

J'aimerais remplir plusieurs ComboBox ayant pour nom UC1, UC2, UC3 avec une boucle du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For i = 1 To 3
 
            strSql = "SELECT..........."            
            INITALISATION DE LA BASE   
            ...
 
            If Donnee.Rows.Count Then                 
            For Each ligne In Donnee.Rows
                    UCi.DisplayMember = "DESIGNATION"
                    UCi.ValueMember = "ID_DESIGN"
                    UCi.DataSource = Donnee
            Next

Commen faire pour nomer mes combobox UCi

Merci d'avance

[SoGood]

J'ai tenté ce code :

Code :

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

1
2
3
4
 
Me.Controls("UC" & i).DisplayMember = "DESIGNATION"
Me.Controls("UC" & i).ValueMember = "ID_DESIGN"
Me.Controls("UC" & i).DataSource = Donnee

Mais on me dit que DisplayMember n'est pas un membre de control

[Aspic]

Comme cela

Code :

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

1
2
3
4
5
For each UCi as ComboBox in Me.Controls
      UCi.DisplayMember = "DESIGNATION"
      UCi.ValueMember = "ID_DESIGN"
      UCi.DataSource = Donnee
Next

[SoGood]

Merci pour ce code mais j'ai toujour le meme probleme.

Code :

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

For each UCi as ComboBox in Me.Controls]

i est une variable
UC un Controle
Comment faire pour que UC = UC & i
et ainsi avoir UC1, UC2, UC3

[Aspic]

Tu n'as pas compris le role de mon code.

Mon code va lister toutes les combobox de ta form (UC1, UC2, UC3... UCi) donc c'est exactement ce que tu voulais faire !

[SaumonAgile]

J'ai tenté ce code :

Code :

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

1
2
3
4
 
Me.Controls("UC" & i).DisplayMember = "DESIGNATION"
Me.Controls("UC" & i).ValueMember = "ID_DESIGN"
Me.Controls("UC" & i).DataSource = Donnee

Mais on me dit que DisplayMember n'est pas un membre de control

Il faut que tu castes le retour de Me.Controls("...") en un ComboBox et ensuite tu pourras utiliser les propriétés DisplayMember, etc...

[SoGood]

Je n'arrive pas a faire un cast sur le Me.Controls("..."), peux tu me mettre sur la voie.

Merci

[Aspic]

Je n'arrive pas a faire un cast sur le Me.Controls("..."), peux tu me mettre sur la voie.

Merci

Tu veux bien affecter à toutes tes combobox la valeur de DESIGNATION en DisplayMember, la valeur de DESIGN en DesignMember et la variable Donnee
à datasource ?

SI oui, alors ce code fais exactement cela :

Code :

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

1
2
3
4
5
For each UCi as ComboBox in Me.Controls
  UCi.DisplayMember = "DESIGNATION"
  UCi.ValueMember = "ID_DESIGN"
  UCi.DataSource = Donnee
Next

[SoGood]

Merci pour ton aide, mais il semblerai que tu n'ai pas compris ma question.
Toute mes ComboBox ne s'appellent pas UCi mais j'ai UC1, UC2, UC3 ...
Et mon problème c'est que je ne parviens pas a concaténer du style UC = "UC" & i

Code :

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

1
2
3
 
For each UC as ComboBox in Me.Controls
...