Discussion :

[noscollections]

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 :

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

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

[JayGr]

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 :

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

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 :

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

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 :

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

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

[rv26t]

Bonjour,

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

Code :

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

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

[noscollections]

Bonjour,

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

mon appel

Code :

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

    alimante_combo("CB_unit_catego", "toto")

Ma fonction

Code :

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

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 :

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 :

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

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 ?

[JayGr]

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 :

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

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.

[rv26t]

Il suffit de passer en paramètre la combobox

appel

Code :

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

    alimante_combo(CB_unit_catego, "toto")

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

Autre exemple

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

Code :

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

    alimante_combo(CBB_couleur, "toto")

[MABROUKI]

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 :

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
 
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

[Rainui]

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

[noscollections]

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 :

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

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 :

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

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.