Combobox
Résolu
abdellah_tadjine
Messages postés
203
Statut
Membre
-
abdellah_tadjine Messages postés 203 Statut Membre -
abdellah_tadjine Messages postés 203 Statut Membre -
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.
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.
3 réponses
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) :
Petit fichier excel Exemple :
https://www.cjoint.com/c/GBjmGDKdsrf
Cordialement.
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
203
Statut
Membre
6
je croix qu'il y a une erreure car l'instruction ne fonctionne pas bien