Discussion :

[Tikalins]

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 :

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

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

[Theze]

Bonjour,

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 :

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

1
2
3
4
5
6
 
Private Sub ComboBox1_Change()
 
   Me.ComboBox2.List = Sheets("Feuil1").Range(Me.ComboBox1.Text).Value
 
End Sub

Hervé.

[Tikalins]

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?

[mercatog]

Code :

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

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

[Tikalins]

Ce code fonctionne 5/5

Merci beaucoup pour votre aide!