Contrôle d'une multitude de ComboBox

Bonjour je voudrais savoir si il y a une façon de faire pour contrôler une multitude de ComboBox (110 pour être exact).

Voici la mise en situation de mon problème,

Mes ComboBox fonctionne en paire, la 2e ComboBox renvoi différentes données selon le choix qui a été fait dans la 1ere ComboBox. J'utilise le code suivant pour contrôler:

à noter que Nequipement1 est ma première et que Nproduit est ma 2e ComboBox circonstancielle.

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

Private Sub Nequipement1_Change()   Select Case Nequipement1.Value   Case "Commutateur" Me.Nproduit1.List = Worksheets("Produits").Range("Commutateur").Value   Case "Imprimante" Me.Nproduit1.List = Worksheets("Produits").Range("Imprimante").Value   Case "Logiciel" Me.Nproduit1.List = Worksheets("Produits").Range("Logiciel").Value   Case "Moniteur" Me.Nproduit1.List = Worksheets("Produits").Range("Moniteur").Value   Case "Portable" Me.Nproduit1.List = Worksheets("Produits").Range("Portable").Value   Case "Poste de table" Me.Nproduit1.List = Worksheets("Produits").Range("PosteDeTable").Value   Case "RAM" Me.Nproduit1.List = Worksheets("Produits").Range("RAM").Value   Case "Sans-Fil" Me.Nproduit1.List = Worksheets("Produits").Range("SansFil").Value   Case "Serveur" Me.Nproduit1.List = Worksheets("Produits").Range("Serveur").Value   Case "Serveur Purkinge" Me.Nproduit1.List = Worksheets("Produits").Range("ServeurPurkinge").Value   Case "Système d'exploitation" Me.Nproduit1.List = Worksheets("Produits").Range("SystemExploitation").Value   Case "Tablet PC" Me.Nproduit1.List = Worksheets("Produits").Range("TabletPC").Value   Case "UPS" Me.Nproduit1.List = Worksheets("Produits").Range("UPS").Value   End Select End Sub

---

Le tout fonctionne très bien mais le problème est que j'ai 55 paires et je cherche un moyen plus efficace que de répéter ce code pour chacune de mes paire de ComboBox.

Vos idées et solution seront appréciés

Merci

bonjour

si je comprend bien tu a un combo ou tu selectionne le type

et quand le type est selectioné sa rempli une deuxieme avec tout le models du type

tu a choisi les select case je vois difficilement comment faire pour faire plus court et plus propre


au plaisir

Bonjour,
Une première piste serait d'harmoniser les valeurs de la combo avec les plages nommées. Ainsi, tu pourrais t'éviter le Select Case et le remplacer par cette ligne :

Code:

---

Me.Nproduit1.List = Worksheets("Produits").Range(Nequipement1.Value).Value

---

Merci Tedo!

Je ne vois pas pourquoi je n'y a pas pensé avant! c'est une très bonne idée

Je cherche encore comment éviter de répéter 55 fois cette même ligne de code pour chacune de mes combobox.

Si je trouve la solution je vous le dis dans la minute!

Re,
Difficile de trop factoriser car de toute façon, il faut au moins une ligne pour chaque évènement "Change" de chaque combo équipement.
Ce que tu peux à la rigueur faire, c'est une fonction générique à laquelle tu passes le numéro de la paire :

Code:

---

1 2 3

Private Sub ComboBoxChange(intNum As Integer) Me.Controls("Nproduit" & intNum).List = Worksheets("Produits").Range(Me.Controls("Nequipement" & intNum)).Value End Sub

---

que tu appelles ensuite dans chaque procédure évènementielle. Par exemple, pour la paire numéro 23 :

Code:

---

1 2 3

Private Sub Nequipement23_Change() ComboBoxChange(12) End Sub

---

Je ne vois pas mieux...:triste:

Bonsoir.

Si tu as 55 contrôles de Nequipement1 = Nequipement55, et même chose pour Nproduit1 à Nproduit55, tu peux les balayer avec

Code:

---

1 2 3 4

for i = 1 to 55 Me.Controls("Nproduit" & i).List = Worksheets("Produits").Range(Me.Controls("Nequipement" & i).Value).Value   next i

---

A mettre au point.

Cordialement,

PGZ

J'ai essayé avec le for mais malheureusement c'est impossible étant donné que c'est dépendant d'un event, il faut que je pointe a tout coup sur le event.

Je me suis résolu à utilisé la solution de Tedo

Merci à tous encore une fois!