Bonjour à tous,

J'ai trouvé un code qui me permet de remplir une Combo (Combo_ListRecett) par rapport aux données d'une première Combo (Combo_Catég).
http://boisgontierjacques.free.fr/pa...irecascade.htm
Je lui ai apporté les modifications nécessaires afin qu'il puisse être adapté à mon besoin, mais ça ne fonctionne pas.

Le message d'erreur suivant apparaît :
Impossible de définir la propriété Value.
Le type ne correspond pas.
Donc à l'initialisation de mon Uf j'ai ce 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
22
23
 
Private Sub UserForm_Initialize()
Dim f, BD()
 
'On cache les Label à l'ouverture de l'UF
Me.Pi1.Visible = False
Me.Pi2.Visible = False
Me.Pi3.Visible = False
Me.Pi4.Visible = False
Me.Et1.Visible = False
Me.Et2.Visible = False
Me.Et3.Visible = False
Me.Et4.Visible = False
Me.Et5.Visible = False
 
  Set f = Sheets("Recettes")
  BD = f.Range("A2:B" & f.[B65000].End(xlUp).Row).Value ' Array BD() pour rapidité
  Set d = CreateObject("Scripting.Dictionary")
  For i = 1 To UBound(BD) ' on explore la colonne 1
     d(BD(i, 1)) = "" ' on ajoute l'élément de la famille au dictionnaire
  Next i
  Me.Combo_Catég = d.keys
End Sub
Et celui-ci lorsque je clique sur le premier Combo (Combo_Catég)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub Combo_Catég_click()
  Me.Combo_ListRecett.Clear
  For i = 1 To UBound(BD)
    If BD(i, 1) = Me.Combo_Catég Then MeCombo_ListRecett.AddItem BD(i, 2)
  Next i
End Sub
Pourriez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

Très cordialement