Combobox

Résolu/Fermé

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 - 9 févr. 2017 à 12:41
abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 - 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.

A voir également:

Combobox
Remplir combobox vba ✓ - Forum Excel
Vba trier combobox ordre alphabétique ✓ - Forum VB / VBA
Combobox vba liste déroulante dynamique ✓ - Forum Excel
Combobox js - Forum Javascript
Rowsource combobox ✓ - Forum Excel

3 réponses

Réponse 1 / 3

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 9/02/2017 à 13:33

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 :

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

Cordialement.

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
9 févr. 2017 à 16:58

je croix qu'il y a une erreure car l'instruction ne fonctionne pas bien

Réponse 2 / 3

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
9 févr. 2017 à 13:55

Merci....je vais essyer

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
9 févr. 2017 à 15:36

merci bcp ca a marché

Réponse 3 / 3

momo
9 févr. 2017 à 15:01

Bonjour
voila un modele de combobox Multi

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

A+
Maurice

Discussions similaires

Assigner une liste déroulante à une combobox

[VBA] Fonctionnement ComboBox

[VBA] Propriété ComboBox

combobox dans word

Combobox et ListIndex

Discussions similaires

Newsletters