Nom de Combobox variable

Bonjour,

Après quelques recherches sur google je n'ai toujours pas trouvé réponse pour répondre à mon objectif.

Contexte :

J'ai une table avec toutes mes données pour mes combobox

j'ai un champs catégorie (exemple couleur ) et un champs valeur (exemple rouge, vert ...)
exemple 2 catégorie (taille) , valeurs (petit, moyen , grand )

en ouverture de fenêtre (load), je remplie mes combobox, mais j'en ai pas mal !

Tout est sur le même principe, je fait une requête SELECT donnée FROM matable WHERE categorie='couleur', puis je met le résultat de ma requête dans mon combobox.

la seule chose qui change, c'est le nom de ma combobox et la catégorie

plutôt que d'avoir X fois le meme code avec 2 truc qui change pourquoi ne pas faire une fonction avec 2 paramètres
le paramètre catégorie, c'est facile.

Ce que je cherche a faire :

si mon combobox s'appel : CBB_couleur
pour ajouter une valeur : CBB_couleur.Items.Add("rouge")

maintenant comment puis-je faire pour que le nom de ma combo soit variable dans une fonction

Code:

---

1 2 3 4 5 6 7 8 9

Sub mafonction_maj_combo (ByVal comboname As String, ByVal categorie As String)   '(..mon code SQL...)   ' ceci ne fonctionne pas :   comboname.Items.Add("rouge")   end sub

---

quel est l'astuce ?

par avance merci

Christophe

Hello,

Pour m'être battu avec des combobox sur Word, je pense que tu peux peut-être essayer de parcourir l'ensemble de tes combobox avec leur type plutôt qu'avec leur nom.
Je n'ai pas la réponse exact à ton problème, mais je m'y prendrais à peu près comme ça :

Code:

---

1 2 3 4

Si c'est une combobox Call mafonction_maj_combo(monObjetCombobox) Sinon Do other things

---

Alors... Un petit exemple où l'on parcours des combobox :

Code:

---

1 2 3 4 5 6

For Each oCtl In ThisDocument.InlineShapes If TypeName(oCtl.OLEFormat.Object) = "ComboBox" Then Call Combobox_Initialize(oCtl.OLEFormat.Object) End If Next oCtl

---

Ici c'est tout bête, je parcours tout les éléments de types InlineShapes à la première ligne.
A la seconde ligne je vérifie que ce sont des combobox (ce nom là ne bouge pas, c'est le type et pas le nom d'ailleurs...).
Ensuite je fais mon traitement via la fonction qui prend une combobox en paramètre.
Et le tour est joué.

La fonction Combobox_Initialize :

Code:

---

1 2 3 4 5

Private Sub Combobox_Initialize(ByRef combo As combobox) combo.List() = Array("Option1", "Option2") combo.Value = "" End Sub

---

En espérant t'avoir aidé,

@+

JayGr

Bonjour,

Il suffit de passer en paramètre la combobox et donc de définir ce paramètre de type ComboBox.

Code:

---

1 2 3 4 5 6 7

Sub mafonction_maj_combo (ByVal comboname As ComboBox, ByVal categorie As String)   '(..mon code SQL...)   comboname.Items.Add("rouge")   end sub

---

Citation:

---

Envoyé par rv26t

Bonjour,

Il suffit de passer en paramètre la combobox et donc de définir ce paramètre de type ComboBox.

---

mon appel

Code:

---

alimante_combo("CB_unit_catego", "toto")

---

Ma fonction

Code:

---

1 2 3 4 5 6 7

Sub alimante_combo(ByVal comboname As ComboBox, ByVal categorie As String)   '(..mon code SQL...)   comboname.Items.Add(categorie)   End Sub

---

Si sur le principe ca semble bien, VB retourne une erreur :

Citation:

---

Impossible de convertir une valeur de type 'String' en 'System.Windows.Forms.ComboBox'.

---

J'ai cette erreur sur le "CB_unit_catego" de l'appel de la fonction

il me propose de résoudre le problème en ajoutant ceci :

Code:

---

1 2 3

Private Sub alimante_combo(p1 As String, p2 As String) Throw New NotImplementedException End Sub

---

Mais ca marche pas plus !

une idée de la cause ?

Citation:

---

Envoyé par noscollections

mon appel
Si sur le principe ca semble bien, VB retourne une erreur :

J'ai cette erreur sur le "CB_unit_catego" de l'appel de la fonction

il me propose de résoudre le problème en ajoutant ceci :

Code:

---

1 2 3

Private Sub alimante_combo(p1 As String, p2 As String) Throw New NotImplementedException End Sub

---

Mais ca marche pas plus !

une idée de la cause ?

---

Tout est là... Tu lui dit que tu vas passer un type combobox tu lui envoies un String... Ou tu lui passes un type combobox ou tu lui passes un String...
Là tu lui passes le nom, pas la combo.

Citation:

---

Envoyé par rv26t

Il suffit de passer en paramètre la combobox

---

appel

Code:

---

alimante_combo(CB_unit_catego, "toto")

---

Ou CB_unit_catego est le nom donné à ton contrôle combobox.

Autre exemple

Citation:

---

Envoyé par noscollections

Ce que je cherche a faire :
si mon combobox s'appel : CBB_couleur
pour ajouter une valeur : CBB_couleur.Items.Add("rouge")

---

Code:

---

alimante_combo(CBB_couleur, "toto")

---

bonjour

Ca a l'air pourtant simple,comme dit par les intervenants....
Supposons pour plus de complication que ,comme toujours,tu as deja droppes tes combo et nommes à ta convenance....et qu'ils sont tellement nombreux que toi-meme l'auteur tu t 'y perdrais facilement....

Tu peux utiliser leurs noms pour les retrouver dans ta fonction de maj simplement:

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

Public Class Form1 'ce form fourmille de controls Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cbo As ComboBox cbo = New ComboBox cbo.Name = "CBB_Couleur" cbo.Tag = cbo.Name   Maj_Combo(cbo, "couleur") End Sub   Sub Maj_Combo(ByVal cbo As ComboBox, ByVal categorie As String) Dim arr() As Control = Me.Controls.Find(cbo.Name, True) For Each item As Control In arr If TypeOf (item) Is ComboBox And item.Name = cbo.Name Then cbo.Items.Add(categorie) Exit For End If Next End Sub       End Class

---

Bonjour,
Question bête, pourquoi ne pas passer par deux BindingSource?

Bonjour,

Après plusieurs heures de combats avec VB, de recherche sur google, j'ai réussi a faire ce que je veux , je vais donc mettre "résolu"

je clique sur mon bouton, et j'appel ma fonction avec 2 paramètres, mon name de combobox et mon paramètre qui servira à ma requête SQL.
j'affiche dans mon combobox mon paramètre de requête pour savoir si tout a suivi.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click   Maj_Combo(CBB_Couleur, "couleur")   End Sub   Sub Maj_Combo(ByVal cbo As ComboBox, ByVal categorie As String) '..SQL code dans le futur cbo.Items.Add(categorie)   End Sub

---

le code de MABROUKI me semblait super mais j'ai pas réussi à le mettre en œuvre. Même en le simplifiant, je n'ai pas réussi à faire rien qu'un truc super simple.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click   Dim cbo As ComboBox cbo = New ComboBox cbo.Name = "CBB_Couleur" cbo.Tag = cbo.Name cbo.Items.Add("TOTO")   End Sub

---

Merci à tous pour vos conseils.