ComboBox en cascade

[yeti_yeti]

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:

'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...

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

  Me.Search_Country.AddItem Range("[DB_Country]")(i)

qui je pense est dûe à la partie

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

 

[tototiti2008]

Re : ComboBox en cascade

Bonjour yeti_yeti

Peut-être en remplaçant

Range("[DB_Country]")(i)

par

[DB_Country].Cells(i,1).value

je n'ai pas testé...

 

[yeti_yeti]

Re : ComboBox en cascade

Hello tototiti2008,

Un grand merci pour ton aide!
Ca marche sans problèmes!

A bientôt

YeTi