Discussion :

[ValerieH34]

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 :

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

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

[joe.levrai]

Bonjour,

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

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
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

[Invité]

Bonjour,

Code :

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

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

[antonysansh]

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

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
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

[ValerieH34]

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