XL 2010 combobox dépendante les unes aux autres

[fffffeefefef]

Bonjour à tous

j'essaye de réaliser une liste deroulante dépendante l'une de l'autre mais mon code ne fonctionne pas excel m'indique erreur 438

private Sub UserForm_Initialize()

Colonne = 2
Sheets("produits").Range("B2:H2").Interior.ColorInder = Clear

Do While Cells(2, Colonne).Value <> ""

formulaire.ComboBox1.AddItem Cells(2, Colonne).Value

Colonne = Colonne + 1

Loop


et

Private Sub ComboBox1_Change()


i = 2

formulaire.ComboBox2.Clear

Sheets("produits").Range("B2:H2").Interior.ColorIndex = Clear

Do While Cells(2, i).Value <> ""

If Cells(2, i).Value = ComboBox1.Value Then

Cells(2, i).Select
Colonne = ActiveCell.Column

End If

i = i + 1
Loop

j = 3
Do While Cells(j, Colonne).Value <> ""
formulaire.ComboBox2.AddItem Cells(j, Colonne)
j = j + 1

Loop

ComboBox2.ListIndex = 0


quelqu'un aurait il une autre solution pour moi svp ?

 

[ThierryP]

Bonjour,

De mémoire, il y une mine d'exemples sur le site de Jacques Boisgontier (http://boisgontierj.free.fr/) pour réaliser des listes en cascade.
Tu y trouveras sûrement ton bonheur !

 

[ChTi160]

Bonjour le Fil
il faudrait un fichier (anonymise)exemple de ce que tu as et ce que tu veux
Bonne journée
Jean marie

 

[patricktoulon]

bonjour à tous
quand je lis ceci

Sheets("produits").Range("B2:H2").Interior.ColorInder = Clear

on comprends tout de suite l'erreur 438

 

[ChTi160]

Re
@ Patrick
c'est on peu plus "Clear" Lol
Jean marie