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

[Marc-L]

Bonjour !

Rappels :

• Important : Editorial - A lire avant de poster

• Conformément aux règles de ce forum, baliser le code via l'icône # dédiée …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[ValerieH34]

Bonjour Marc,
C'est une erreur de ma part
Comment dois je faire pour le déplacer ?
De plus je ne comprends pas ce que tu veux me dire en me parlant de la balise
Merci

[Marc-L]

Pour la prochaine fois …

Pour la balise, il y a même une animation dans les règles du forum !

[Djohn92]

Bonjour

balise = icone en forme de dièze. Ca met le texte en forme, t l'appliques au code.

Tu sélectionnes le code, tu cliques sur "#" dans l'interface

Code :

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

et voilà

Sinon

cela ne fonctionne pas comme je le souhaiterai

J'aime les mystères. Dis nous en plus ;-)

[parmi]

Bonjour,

D'après ce que je comprends, ceci devrait fonctionner

Code :

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

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