Discussion :

[Chewi]

Re le forum VBA,

J'ai créé un UserForm qui possède deux ComboBox et je voudrais que la liste proposée par la deuxième soit dépendante de la valeur de la première.

Est-il possible de réaliser cela?

Ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
 
If UserForm1.ComboBox1 = 12 Then 
UserForm1.ComboBox2.RowSource = "Sheet1!List1"
Else If UserForm1.ComboBox1 = 15 Then 
UserForm1.ComboBox2.RowSource = "Sheet1!List2"
Else If UserForm1.ComboBox1 = 20 Then 
UserForm1.ComboBox2.RowSource = "Sheet1!List3"
End If
 
End Sub

Où List1, List2 et List3 représentent des noms d'ensembles de cellules discontinues(pour l'info).

Seulement vous allez le voir tout de suite que ma syntaxe n'est pas bonne!(J'apprend VBA par moi-même (tutoriaux) et par l'ensemble de vos réponses).

Merci

Chewi

[SfJ5Rpw8]

pour la syntaxe ... un Select Case c'est mieux :

Code :

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

1
2
3
4
5
6
7
8
9
 
Select Case UserForm1.ComboBox1.Value
    Case 12
        UserForm1.ComboBox2.RowSource = "Sheet1!List1"
    Case 15
        UserForm1.ComboBox2.RowSource = "Sheet1!List2"
    Case 20
        UserForm1.ComboBox2.RowSource = "Sheet1!List3"
End Select

sinon qu'attends-tu par discontinues...?