Discussion :

[nat8546]

Bonjour !
Je cherche à m'améliorer en Excel et je m'intéresse actuellement aux UserForm !
Je voudrais faire des listes de choix indirect:
Dans une feuille Excel, j'ai créé une liste "Marque_Voiture" avec les éléments {Renault, Audi, Peugeot} , une autre liste "Renault" avec {Twingo, Clio, Megane}, "Peugeot" {406, 604} et "Audi" {Q1,Q2,Q3}.
Si je fait dans une feuille Excel la méthode suivante :
Dans une case A1 je fais Validation des données/Liste/ Fait ref à "Marque_Voiture" et dans une autre case A2 Validation des Données/Liste/ Fait ref à =INDIRECT(A1) ça marche très bien.

Maintenant je voudrais le mettre dans un userform avec deux combobox.
Dans la première combobox, je suis allé dans ses propriétés et j'ai mis dans "RowSource" =Marque_Voiture, ça marche. Par contre quand je vais dans la deuxième, j'ai tenté dans les propriétés "RowSource=INDIRECT(ComboBox1.Value)" et ça ne marche pas.

Des idées pour réussir cela ?

Merci beaucoup !

[a_diard]

Bonjour

tu as de quoi avancer ici.


http://boisgontierjacques.free.fr/pa...irecascade.htm

[nat8546]

J'ai réussi finalement en bidouillant un code comme celui ci:
En gardant les noms de liste que j'avais attribué, j'ai rajouté dans le code du userform:

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
private sub ComboBox1_Change()
Worksheets("Mes_Listes"). Select 'Selectionne ma feuille
If ComboBox1.Value = "Renault" Then
    ComboBox2.RowSource = "Renault" 'Si la valeur dans la première liste déroulante est Renault alors ça met dans la combobox2 la liste Renault
ElseIf ComboBox1.Value = "Audi" Then
    ComboBox2.RowSource = "Audi"
ElseIf ComboBox1.Value = "Peugeot" Then
    ComboBox2.RowSource = "Peugeot"
End If
End Sub
 
private sub UserForm_Activate()
Worksheets("Mes_Listes").Select
ComboBox1.RowSource="Marque_Voiture"
End Sub

ça a l'air de bien marcher !

[Qwazerty]

Salut

Autant faire les choses comme il faut dès le début

Je pense que la discussion suivante devrait te faire avancer dans ton projet, ce genre de sujet réapparait souvent sur DVP, d'où l'intéret de faire des recherches avant de poster un message.

https://www.developpez.net/forums/d1.../#post10204979

Juste une remarque au passage

Code :

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

1
2
3
4
5
6
7
8
9
 
 
If ComboBox1.Value = "Renault" Then
    ComboBox2.RowSource = "Renault" 'Si la valeur dans la première liste déroulante est Renault alors ça met dans la combobox2 la liste Renault
ElseIf ComboBox1.Value = "Audi" Then
    ComboBox2.RowSource = "Audi"
ElseIf ComboBox1.Value = "Peugeot" Then
    ComboBox2.RowSource = "Peugeot"
End If

Donc

Code :

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

Combobox2.rowSource = ComboBox1.Value

++
Qwaz

[nat8546]

Haha merci c'est sûr que ça sera plus pro