Limiter choix Combobox suivant valeur comboxbox précédente???

[flint6593]

Bonjour,

Alors je pense que le sujet a déjà été traité, mais difficile à trouver par mot clé! 😱

Voilà j'ai 4 combobox configurer avec une liste de valeurs présentes dans une colonne.
Elle sont configurées avec la fonction: RowSource des propriétés => exemple: sheet1!A1:A10

Ce que je voudrais, c'est suivant les choix dans la première combobox, interdire (ou ne pas faire apparaître) certain choix des autres combobox...

Je ne sais pas si j'ai été assez claire ^^
Si vous pouviez m'aider???

Merci!!!!!!

 

[Pierrot93]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

Bonjour,

regarde ce lien, tu y trouveras sans doute une réponse :
Listes en cascade

bonne journée
@+

 

[flint6593]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

Je vais regarder, merci!!!
Ca à l'air assez complet manque plus qu'à trouver 😉

 

[flint6593]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

J'ai un petit soucis, j'ai trouvé deux formes, mais aucune ne fonctionne:

If controle = 2 Then 'suivant valeur de contrôle
'UserForm2.spcbox.RowSource = ("reference!F2:F5") 'FORME 1
UserForm2.spcbox.AddItem Sheets("reference").Range(F2, F5) 'FORME 2
Else
UserForm2.spcbox.RowSource = ("reference!AB2:AB4")
End Sub

Aucune des deux ne fonctionne... Vous savez pourquoi?

 

[Pierrot93]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

Re,

en l'état difficile à dire.... perso, j'utilise rarement "rowsource" préférant alimenter mes objets pas les propriétés "list" ou bien "additem" selon le cas...

 

[flint6593]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

J'ai essayé dans mon IF de remplacer rowsource par
Userform2.spcbox.AddItem "1"
Userform2.spcbox.AddItem "2"
Userform2.spcbox.AddItem "3"

Mais ça ne fonctionne pas, ma combox reste blanche sans choix...

 

[Pierrot93]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

Re,

ce code est placé où ??? mets peut être un tout petit fichier en pièce jointe représentant uniquement le problème posé, plus facile pour t'aider....

 

[flint6593]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

Je met le fichier en PJ
merci!!!!

 

[Pierrot93]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

Re,

essaye comme ceci :

Private Sub famille_Change()
Dim controle
Me.reference.Clear
If famille.Value = "NORD" Then
    reference.AddItem "1111": reference.AddItem "2222": reference.AddItem "3333"
    ElseIf famille.Value = "SUD" Then reference.AddItem "aaa": reference.AddItem "bbb": reference.AddItem "ccc"
    ElseIf famille.Value = "EST" Then reference.AddItem "xxx": reference.AddItem "yyy": reference.AddItem "zzz"
Else
    reference.AddItem "abc": reference.AddItem "def": reference.AddItem "ghi"
End If
End Sub
Private Sub UserForm_Initialize()
    UserForm1.famille.AddItem "NORD"
    UserForm1.famille.AddItem "SUD"
    UserForm1.famille.AddItem "EST"
    UserForm1.famille.AddItem "OUEST"
End Sub

 

[flint6593]

Re : Limiter choix Combobox suivant valeur comboxbox précédente???

JUSTE PARFAIT!!!!!!!!!!!!!!!
Comme d'habitude!!!!!

MERCI!!!!!!!!