Discussion :

[BarBi-69]

Bonjour à tous !

J'ai besoin d'aide pour une histoire de ComboBox

Je cherche à mettre dans un UserForm, deux ComboBox, dont la deuxième aurait des propositions qui dépendent de ce qui aura été sélectionné dans la première.

J'ai une feuille "MARQUE" avec des marques de véhicules, listées dans un tableau à une colonne "TableauMARQUE", pour que l'utilisateur puisse ajouter des marques sans que cela ne nécessite d'ajustement dans la programmation.

J'ai une feuille "MODEL" avec également un tableau à autant de colonnes qu'il y a de marques dans TableauMARQUE, nommé "TableauMODEL". Ce tableau a une en-tête avec les marques des véhicules, et sous chaque marque, les différents modèles de ces marques.

Le but étant dans l'UserForm, que l'utilisateur sélectionne dans sa première ComboBox, la marque du véhicule, et que la deuxième ComboBox ne propose que les modèles qui correspondent à la marque.

Etant donné que l'utilisateur aura la possibilité d'ajouter des marques et des modèles dans les tableaux, il faut que les plages prennent en compte ces ajouts, sans que la ComboBox n'affiche les cellules vides.

Je bloque, et je n'ai pas vraiment réussi à trouver mon bonheur en surfant sur les forums ...

J'en appelle à vos compétences !

A bientôt !

BarBi

[halaster08]

Bonjour,
Le code que j'utilise pour des listbox, a adapter a ton cas:
il utilise un tableau sur les colonnes G et H de la feuille liste
MARQUE MODEL
ma1 mo1
ma1 mo2
ma1 mo3
ma1 mo4
ma1 mo5
ma2 mo1
ma2 mo2
ma2 mo3
ma2 mo4

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
18
19
Private Sub UserForm_Initialize()
'initialisation des listes, sauf pour celle des polices qui se fait dynamiquement en fonction du choix de l'assuré (voir plus bas)
'création de la liste des assuré
  Set f = Sheets("liste")
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("G2:G" & f.[G600].End(xlUp).Row)   ' on explore la colonne de niveau 1
    MonDico(c.Value) = ""                                    ' on ajoute l'élément de la famille au dictionnaire
  Next c
  Me.ListBox1.List = MonDico.keys
end sub
Private Sub ListBox1_Click()
'création de la liste des polices en fonction du choix de l'assuré
  Me.ListBox2.Clear
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("G2:G" & f.[G600].End(xlUp).Row)      ' on explore la colonne de niveau 1
     If c = Me.ListBox1 Then MonDico(c.Offset(, 1).Value) = ""   ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
  Next c
  Me.ListBox2.List = MonDico.keys
End Sub

[BarBi-69]

Bonjour,

Merci pour ta réponse !
J'ai essayé ce que tu as dit, et j'ai adapté le code à mon cas, mais à l’exécution j'ai un message d'erreur qui dit : Erreur d’exécution '70' : permission refusée
Je ne vois pas trop quoi faire du coup ...
Voici mon code :

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
18
19
20
21
 
Private Sub UserForm_Initialize()
'initialisation des listes, sauf pour celle des polices qui se fait dynamiquement en fonction du choix de l'assuré (voir plus bas)
'création de la liste des assuré
  Set f = Sheets("PARC")
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("A2:A" & f.[A600].End(xlUp).Row)   ' on explore la colonne de niveau 1
    MonDico(c.Value) = ""                                    ' on ajoute l'élément de la famille au dictionnaire
  Next c
  Me.ComboBox1.List = MonDico.keys
End Sub
Private Sub ListBox1_Click()
'création de la liste des polices en fonction du choix de l'assuré
  Me.ComboBox2.Clear
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("A2:A" & f.[A600].End(xlUp).Row)      ' on explore la colonne de niveau 1
     If c = Me.ComboBox1 Then MonDico(c.Offset(, 1).Value) = ""   ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
    End If
  Next c
  Me.ComboBox2.List = MonDico.keys
End Sub

[Marc-L]

Bonjour,

déjà conformément aux règles du forum !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[halaster08]

Merci pour ta réponse !
J'ai essayé ce que tu as dit, et j'ai adapté le code à mon cas, mais à l’exécution j'ai un message d'erreur qui dit : Erreur d’exécution '70' : permission refusée
Je ne vois pas trop quoi faire du coup ...
Voici mon code :

Sur quel ligne l'erreur?
Si tu travaille avec des combobox trouves-tu normal cette ligne ?

Code :

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

Private Sub ListBox1_Click()

[BarBi-69]

Oui effectivement c'est pas normal, j'ai changé et ça ne change rien, même message ...
Bizarrement, le débogage indique l'erreur sur un autre UserForm (ligne 17 ici). Mais quand j'enlève le code que vous m'aviez conseillé, l'autre UserForm marche correctement.

Mon travail s'appui sur plusieurs UsersForms, une UF0 qui est en quelque sorte une page de garde qui donne accès à d'autres UserForms (UF1, UF2, UF3, UF4), et la problématique des ComboBox inter corrélées se trouve dans la UF1. Sans le code que vous m'avez montré, tous mes UF s'ouvraient comme prévu, mais avec le code que vous m'avez montré, l'UF0 s'ouvre, et donne accès aux UF2, UF3 et UF4, mais lorsque je clique sur le bouton de l'UF1, le fameux message Erreur '70' apparaît.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub UserForm_Click()
    UF0_Accueil.Show
End Sub
 
Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub
 
Private Sub CommandButton1_Click()
    UF1_IndModel.Show
End Sub
 
Private Sub CommandButton2_Click()
    UF2_IndMois.Show
End Sub
 
Private Sub CommandButton3_Click()
    UF3_IndAnnée.Show
End Sub
Private Sub CommandButton4_Click()
    Application.Quit
End Sub
 
Private Sub CommandButton5_Click()
    Unload UF0_Accueil
    UF4_ValBDD.Show
End Sub

[halaster08]

Malheureusement je ne suis pas spécialiste, moi je n'ai qu'un seul Userform avec mes listbox et il fonctionne très bien.
Je ne saurais pas t'en dire plus.

Tu peux peut être essayé le code sur un nouveau classeur avec seulement un Userform et deux combobox pour voir si le code fonctionne dans ce cas.