Discussion :

[backle]

Bonjour,

J'ai un problème je souhaite faire une combobox qui afficherait une liste différente en fonction du choix dans la combobox précédente. Cependant, aucune de mes listes n'est pré-écrites sur une feuille Excel, je ne peux donc pas reporter ma combobox/listbox à un Range.

Pour info : Toutes mes combobox sont dans un formulaire qui sert à saisir les données et ensuite les rentrer dans le tableau automatiquement (je ne cherche pas de l'aide là dessus)

Faire une combobox, jusque là pas de problème, mais pour que la deuxième propose un choix différent en fonction de la première... là je bloque !

Ma première combobox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
'ComboBox4 = Thème FEP
With ComboBox4
.AddItem "1 - Relations technico-commerciales"
.AddItem "2 - Moyens mis en oeuvre"
End With
End Sub

Ma (mes) combobox qui sont censées suivre en fonction du choix de la première :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ComboBox10_Change()
'ComboBox10 = Sous-thème FEP
'1 - Relation technico-commerciales
With ComboBox10
.AddItem "1.1 - Préparation"
.AddItem "1.2 - Levée des préalables "
.AddItem "1.3 - Respect des engagements contractuels"
End With
 
'ComboBox10 = Sous-thème FEP
'2 - Moyens mis en oeuvre
With ComboBox10
.AddItem "2.1 - Dimensionnement des ressources humaines et matérielles"
.AddItem "2.2 - Carnets d'accès, habilitations, certifications, autorisations, passeports"
.AddItem "2.3 - Qualité du geste professionnel"
End with
End Sub

Je ne sais pas si je dois mettre les différentes combobox 10 (soit la 2eme combobox) dans UserForm_Initialize également, ou si je peux faire une sorte de renvoi...

J'espère mettre fait assez clairement comprendre...

Merci d'avance !

[Thautheme]

Bonjour Backle, bonjour le forum,

En principe tu alimentes les comboboxes suivantes au changement dans la ComboBox principale, du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox4_Change()
Select Case Me.ComboBox4.Value
    Case "1 - Relations technico-commerciales"
        With Me.ComboBox10
            .AddItem "1.1 - Préparation"
            .AddItem "1.2 - Levée des préalables "
            .AddItem "1.3 - Respect des engagements contractuels"
        End With
    Case "2 - Moyens mis en oeuvre"
        With Me.ComboBox10
            .AddItem "2.1 - Dimensionnement des ressources humaines et matérielles"
            .AddItem "2.2 - Carnets d'accès, habilitations, certifications, autorisations, passeports"
            .AddItem "2.3 - Qualité du geste professionnel"
        End With
End Select
End Sub

Mais tout écrire en dur n'est peut-être pas la meilleurs solution...

[MarcelG]

Bonjour à vous, Bonjour au forum,

Pour ma part, il est difficile de contourner l'écriture des items d'une liste déroulante dans une feuille de calcul.

Pour le développement, dans ces conditions, voir les diverses sources sur la problématique des "Combobox en cascades"
De mémoire, SilkyRoad.

[MarcelG]

J'ai trouvé la ressource.

Combobox en cascades

[backle]

J'ai essayé ta solution Thautheme, elle marche au top ! Je suis ravie ça m'enlève un poids !

Je vais pouvoir finir mon code, super merci à tous !