Bonjour à tous,
Je cherchais à faire des ComboBox en cascades pour mon UserForm. J'ai réussi à intégrer les données de la ComboBox1 grâce à une liste pré-établie dans une des feuilles de mon fichier comme ceci:
Pour remplir la ComboBox2 en fonction de ce qui a été choisi dans la ComboBox1, je me suis inspiré de ceci: Menus en cascade étant donné que mon fichier utilisait déjà des listes. Il m'a suffit de l'adapter un petit peu...
Malheureusement, j'ai une erreur sur la ligne
qui je pense est dûe à la partie
DB_Country faisant référence à une liste.
Avez-vous une idée de comment faire pour que la synthaxe soit correcte?
Merci d'avance
YeTi
Je cherchais à faire des ComboBox en cascades pour mon UserForm. J'ai réussi à intégrer les données de la ComboBox1 grâce à une liste pré-établie dans une des feuilles de mon fichier comme ceci:
Code:
'START LOADING USERFORM
Private Sub UserForm_Initialize()
For i = 2 To 256
With Sheets("Overview").Cells(i, 17)
If .Value <> "" Then
Search_Product.AddItem .Text
End If
End With
Next i
End Sub
Pour remplir la ComboBox2 en fonction de ce qui a été choisi dans la ComboBox1, je me suis inspiré de ceci: Menus en cascade étant donné que mon fichier utilisait déjà des listes. Il m'a suffit de l'adapter un petit peu...
Code:
Private Sub Search_Product_Change()
d = Application.Match(Me.Search_Product, [DB_Products], 0)
Me.Search_Country.Clear
For i = d To d + Application.CountIf([DB_Products], Me.Search_Product) - 1
Me.Search_Country.AddItem Range("[DB_Country]")(i)
Next i
End Sub
Malheureusement, j'ai une erreur sur la ligne
Code:
Me.Search_Country.AddItem Range("[DB_Country]")(i)
qui je pense est dûe à la partie
Code:
Range("[DB_Country]")(i)
DB_Country faisant référence à une liste.
Avez-vous une idée de comment faire pour que la synthaxe soit correcte?
Merci d'avance
YeTi