Discussion :

[Yanluo]

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 :

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

[patricktoulon]

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

[tedo01]

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 :

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

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

[Yanluo]

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!

[tedo01]

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 :

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

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 :

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

1
2
3
Private Sub Nequipement23_Change()
   ComboBoxChange(12)
End Sub

Je ne vois pas mieux...

[pgz]

Bonsoir.

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

Code :

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

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

[Yanluo]

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!