Problème sur la fonction SELECT CASE

Bonjour
Hier Philippe Tullliez m'a donné une fonction très utile pour pouvoir remplir automatiquement une case lorsque l'on sélectionne une donnée
Maintenant, je cherche à appliquer cette fonction sur une combobox
Seulement, je ne parviens pas à trouver la solution
Quelqu'un peut il m'aider.
Voici ce que j'aurai eu tendance à écrire
Mais bien entendu, cela ne fonctionne pas comme je le souhaiterai
Code:

1 2 3 4 5 6 Private Sub ComboBox1_Click() Select Case ComboBox1.Value Case "LT": ComboBox2 = "1", "2", "3" Case "SE": ComboBox2 = "4", "5", "6" End Select End Sub
D'avance merci pour votre aide

Bonjour,

si tu veux remplir combobox2 en fonction de la valeur de combobox1, la méthode n'est pas la bonne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Select Case ComboBox1.Value Case "LT" With ComboBox2 .Clear .AddItem "1" .AddItem "2" .AddItem "3" End With Case "SE" With ComboBox2 .Clear .AddItem "4" .AddItem "5" .AddItem "6" End With End Select
il faut dans un premier temps vider combobox2 de ses valeurs, et ensuite les ajouter séparément via la méthode AddItem
(on pourrait faire une boucle sur cet exemple trivial, ou utiliser des tableaux stockant tes valeurs, mais voici la méthode la plus facile à comprendre)

EDIT : rdurupt te montre la méthode par tableau juste en dessous :mrgreen:

Bonjour,

Code:

1
2
3
4
5
6
Private Sub ComboBox1_Click()
         Select Case ComboBox1.Value
                   Case "LT": ComboBox2.list =Array"1", "2", "3")
                   Case "SE": ComboBox2.list =Array( "4", "5", "6")
         End Select
End Sub

Si tu veux alimenter ton ComboBox2, je verrais un truc de ce genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox1_Click()
    With UserForm1
        Select Case .ComboBox1.Value
            Case "LT"
                .ComboBox2.Clear
                .ComboBox2.AddItem ("1")
                .ComboBox2.AddItem ("2")
                .ComboBox2.AddItem ("3")
            Case "SE"
                .ComboBox2.Clear
                .ComboBox2.AddItem ("4")
                .ComboBox2.AddItem ("5")
                .ComboBox2.AddItem ("6")
        End Select
    End With
End Sub

Il faut juste changer le nom de ton UserForm.

EDIT : J'arrive en retard :)

Merci à vous
Finalement la solution qui correspond le mieux à mon attente pour le moment est celle de rdurupt
Bonne journée