Menu

Combobox [Résolu/Fermé]

abdellah_tadjine 136 Messages postés jeudi 30 novembre 2006Date d'inscription 1 mai 2018 Dernière intervention - 9 févr. 2017 à 12:41 - Dernière réponse : abdellah_tadjine 136 Messages postés jeudi 30 novembre 2006Date d'inscription 1 mai 2018 Dernière intervention
- 9 févr. 2017 à 16:58
Bonjour,
j'ai dans mon userform 2 (combobox1 et combobox2)

dans combobox1 contient trois valeur ( analyse , consultation ; radiologie)
je veux quand je sélectionne analyses de combobox1, combobox 2 affiche (fns ; sanguin ....ect)
quand je sélectionne consultation de combobox1 , dans combobox2 affiche (ORL.endos.orthopédie.....ect) et quant je sélectionne radiologie dans combobox1 affiche dans combobox2 (scanner; télé thorax ; IRM.....ect) merci pour votre aide.


Afficher la suite 

5 réponses

Kuartz 849 Messages postés vendredi 13 février 2015Date d'inscription 30 janvier 2018 Dernière intervention - Modifié par Kuartz le 9/02/2017 à 13:33
0
Merci
Bonjour,

Utilisez les événements disponibles en VBA.

Supposons que vous vouliez afficher dans la combobox2, le résultat de la combobox1 lorsque vous changez la valeur de combobox1.

Alors le code sera (à mettre dans le UserForm) :


Private Sub UserForm_Initialize()

With ComboBox1
    .AddItem "analyse"
    .AddItem "consultation"
    .AddItem "radiologie"
End With

End Sub

Private Sub ComboBox1_Change()

If Me.ComboBox1.Value = "analyse" Then
    With Me.ComboBox2
        .AddItem "ORL"
        .AddItem "endos"
        .AddItem "orthopédie"
        .AddItem "etc..."
    End With
ElseIf Me.ComboBox1.Value = "radiologie" Then
    With Me.ComboBox2
        .AddItem "scanner"
        .AddItem "télé"
        .AddItem "thorax"
        .AddItem "ITM"
        .AddItem "etc..."
    End With
End If


End Sub


Petit fichier excel Exemple :

http://www.cjoint.com/c/GBjmGDKdsrf

Cordialement.
abdellah_tadjine 136 Messages postés jeudi 30 novembre 2006Date d'inscription 1 mai 2018 Dernière intervention - 9 févr. 2017 à 16:58
je croix qu'il y a une erreure car l'instruction ne fonctionne pas bien
abdellah_tadjine 136 Messages postés jeudi 30 novembre 2006Date d'inscription 1 mai 2018 Dernière intervention - 9 févr. 2017 à 13:55
0
Merci
Merci....je vais essyer
abdellah_tadjine 136 Messages postés jeudi 30 novembre 2006Date d'inscription 1 mai 2018 Dernière intervention - 9 févr. 2017 à 15:36
merci bcp ca a marché
0
Merci
Bonjour
voila un modele de combobox Multi

http://www.cjoint.com/c/GBjn7YS3Y4P

A+
Maurice