Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment lié 2 Combobox

Comment lié 2 Combobox

3 réponses
Avatar
Joël
Bonjour
J'ai 2 combobox dans un Userform.
Je d=E9termine la iste des valeurs possibles de Combobox1.
La valeur s=E9lectionn=E9e dans Combobox 1 doit d=E9termin=E9 la=20
liste de valeurs de Combobox2.
Je ne parviens pas =E0 r=E9aliser cette derni=E8re condition.
Combobox2 reste vide !...
Quelqu'un peut il m'aider SVP ! Merci d'avance.
Cordialement Jo=EBl

Sub test()
UserForm1.ComboBox1.RowSource =3D "Feuil3!A7:A10"
UserForm1.Show
If UserForm1.ComboBox1.Value =3D "RENAULT" Then
UserForm1.ComboBox2.RowSource =3D "Feuil3!A12:A14"
ElseIf UserForm1.ComboBox1.Value =3D "PEUGEOT" Then
UserForm1.ComboBox2.RowSource =3D "Feuil3!C12:C14"
ElseIf UserForm1.ComboBox1.Value =3D "CITROEN" Then
UserForm1.ComboBox2.RowSource =3D "Feuil3!B12:B14"
End If

End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
cameron
Le problème vient de ce que tu as mis le code de mise à
jour des données du combobox2 dans la sub d'appel du
Userform.
En fait lorsque tu affiches le Userform, la Sub est en
attente (exécution du code arrêtée à la ligne ".show")
Il faut en fait déclarer une "Private function" associée
au combobox1 par exemple :

Private Sub ComboBox1_Change()
If UserForm1.ComboBox1.Value = "RENAULT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!A12:A14"
ElseIf UserForm1.ComboBox1.Value = "PEUGEOT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!C12:C14"
ElseIf UserForm1.ComboBox1.Value = "CITROEN" Then
UserForm1.ComboBox2.RowSource = "Feuil3!B12:B14"
End If
End Sub


-----Message d'origine-----
Bonjour
J'ai 2 combobox dans un Userform.
Je détermine la iste des valeurs possibles de Combobox1.
La valeur sélectionnée dans Combobox 1 doit déterminé la
liste de valeurs de Combobox2.
Je ne parviens pas à réaliser cette dernière condition.
Combobox2 reste vide !...
Quelqu'un peut il m'aider SVP ! Merci d'avance.
Cordialement Joël

Sub test()
UserForm1.ComboBox1.RowSource = "Feuil3!A7:A10"
UserForm1.Show
If UserForm1.ComboBox1.Value = "RENAULT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!A12:A14"
ElseIf UserForm1.ComboBox1.Value = "PEUGEOT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!C12:C14"
ElseIf UserForm1.ComboBox1.Value = "CITROEN" Then
UserForm1.ComboBox2.RowSource = "Feuil3!B12:B14"
End If

End Sub

.



Avatar
Pascal Engelmajer
salut,
un exemple à de manipulation de combobox
http://www.ilyapa.net/excel/excel02.html#2
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Joël" a écrit dans le message de
news: 357c01c3fd44$a28b0890$
Bonjour
J'ai 2 combobox dans un Userform.
Je détermine la iste des valeurs possibles de Combobox1.
La valeur sélectionnée dans Combobox 1 doit déterminé la
liste de valeurs de Combobox2.
Je ne parviens pas à réaliser cette dernière condition.
Combobox2 reste vide !...
Quelqu'un peut il m'aider SVP ! Merci d'avance.
Cordialement Joël

Sub test()
UserForm1.ComboBox1.RowSource = "Feuil3!A7:A10"
UserForm1.Show
If UserForm1.ComboBox1.Value = "RENAULT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!A12:A14"
ElseIf UserForm1.ComboBox1.Value = "PEUGEOT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!C12:C14"
ElseIf UserForm1.ComboBox1.Value = "CITROEN" Then
UserForm1.ComboBox2.RowSource = "Feuil3!B12:B14"
End If

End Sub
Avatar
Joël
Merci Pascal et Merci Cameron
Je bosser de ce pas avec vos suggestions...
A+ Cordialement Joël
-----Message d'origine-----
salut,
un exemple à de manipulation de combobox
http://www.ilyapa.net/excel/excel02.html#2
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."

Sénèque.
http://www.ilyapa.net/excel
"Joël" a écrit
dans le message de

news: 357c01c3fd44$a28b0890$
Bonjour
J'ai 2 combobox dans un Userform.
Je détermine la iste des valeurs possibles de Combobox1.
La valeur sélectionnée dans Combobox 1 doit déterminé la
liste de valeurs de Combobox2.
Je ne parviens pas à réaliser cette dernière condition.
Combobox2 reste vide !...
Quelqu'un peut il m'aider SVP ! Merci d'avance.
Cordialement Joël

Sub test()
UserForm1.ComboBox1.RowSource = "Feuil3!A7:A10"
UserForm1.Show
If UserForm1.ComboBox1.Value = "RENAULT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!A12:A14"
ElseIf UserForm1.ComboBox1.Value = "PEUGEOT" Then
UserForm1.ComboBox2.RowSource = "Feuil3!C12:C14"
ElseIf UserForm1.ComboBox1.Value = "CITROEN" Then
UserForm1.ComboBox2.RowSource = "Feuil3!B12:B14"
End If

End Sub



.