lier OptionButton à ComboBox1 liée à ComboBox2

Bonjour,

Je débute en VBA sous excel. Je développe une application de gestion de stock pour une entreprise. J'ai cependant un problème lorsque je tape mon code (NB: je travail sous Excel 2011 pour Mac)

Le Formulaire :
1- l'utilisateur choisi le type de produit (via OptionButton; 4 options possible)
1.1- L'optionButton sélectionné contrôle la valeur de ComboBox 1 ("Produits")
2- l'utilisateur choisi le Produit dans ComboBox1
2.1- Combobox1 contrôle la valeur de ComboBox2 ("Références")
3- L'utilisateur sélectionne la Référence

Mon problème :
J'ai réussi à lier l'optionButton à la ComboBox1. Seulement je n'arrive pas à faire la ComboBox1 contrôler la ComboBox 2.

Ce que je veux :

Je voudrais que l'utilisateur choisisse son OptionButton, que celui-ci détermine les valeur de la combobox1 (fait) et qu'en fonction de la valeur de la Combox1 je puisse avoir la valeur de la combobox 2. Dans mon code actuellement pour lier les deux combobox j'utilise :

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox1_Change() Select Case Me.ComboBox1 Case "ALU" Me.ComboBox2.List = Sheets("Feuil1").Range("C2:C5").Value Case "ACIER" Me.ComboBox2.List = Sheets("Feuil1").Range("D2:D5").Value End Select End Sub

---

Seulement mon nombre de valeur dans la combobox1 est trop important (je n'ai pas tout entré). Je voudrais trouver une alternative moins fastidieuse. Est-ce que quelqu'un pourrait m'aider s'il vous plaît?

Je vous remercie d'avance,

Erika

Bonjour,

Citation:

---

Seulement mon nombre de valeur dans la combobox1 est trop important (je n'ai pas tout entré). Je voudrais trouver une alternative moins fastidieuse. Est-ce que quelqu'un pourrait m'aider s'il vous plaît?

---

Nomme tes plages comme tes choix dans ta combobox1 et ton code devient :

Code:

---

1 2 3 4 5 6

Private Sub ComboBox1_Change()   Me.ComboBox2.List = Sheets("Feuil1").Range(Me.ComboBox1.Text).Value   End Sub

---

Hervé.

J'ai une erreur 1004 "Erreur définie par l'application ou par l'objet."

Ma base de donnée (Feuil1) se présente de cette façon :

Colone A : Valeurs de combobox1

ALU

ACIER

INOX

Colone B à X : Références

ALu-1 ALU-2

AC-1

INO-1 INO-2 INO-3

Est-ce que c'est le fait de devoir lire horizontalement qui pose un problème?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub ComboBox1_Change() Dim Materiau As String Dim c As Range   Me.ComboBox2.Clear If Me.ComboBox1.ListIndex > -1 Then Materiau = Me.ComboBox1 Set c = Worksheets("Feuil1").Range("A:A").Find(Materiau, LookIn:=xlValues, Lookat:=xlWhole) If Not c Is Nothing Then Me.ComboBox2.List = Application.Transpose(c.Offset(, 1).Resize(, 4).Value) Set c = Nothing End If End If End Sub

---

Ce code fonctionne 5/5

Merci beaucoup pour votre aide!