alimentation d'un listbox selon la selection d'un autre

Bonsoir le forum
Pouvez vous m'aider sur ce probleme, SVP?
je voudrais alimenter un listbox selon la selection par clic d'un premier.

le premier listBOx : LB correspond a la C15 à la dernière ligne vide. Quand je clic sur celui ci le deuxieme doit etre alimenté par les commune comprenant le nom cliquer dans LB_FusionDemandeurF

le 2eme : LB_FusionCommuneF correspond a la D15 à la dernière ligne vide

le second doit etre alimenté selon le choix du premier; j'ai essayé ces deux codes. mais a chaque fois ca plante. "erreur inconnue". je pense que c'est la configuration de la propriété de mes listbox.
j'ai essayé ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub LB_FusionDemandeurF_Click()   LB_FusionCommuneF.Clear   Dim lig As Long LB_FusionCommuneF.Clear     With Sheets("Faisan") For lig = 15 To .Range("c65000").End(xlUp).Row If .Cells(lig, 3) = LB_FusionDemandeurF Then LB_FusionCommuneF.AddItem .Cells(lig, 4) LB_FusionCommuneF.List(LB_FusionCommuneF.ListCount - 1, 1) = lig End If Next lig End With

---

merci pour votre aide.

la question est que souhaites tu affiché dans ta 2eme listbox.
En effet avec ta méthode tu réinitialise a chaque fois ta 2ème lsitbox et tu n'aura donc qu'une seule valeur a chaque fois dans celle ci.

Si c'est que tu souhaite voici un code qui marche pour peu que tu es bien rempli ta 1ère listbox

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ListBox1_Change() Me.ListBox2.Clear For i = 15 To Sheets("Feuil1").Range("C65000").End(xlUp).Row If Me.ListBox1.Text = Cells(i, 3) Then ans = Cells(i, 4).Value Me.ListBox2.AddItem ans End If Next i End Sub

---

si jamais tu souhaites faire autre chose soit plus clair s'il te plait :)

bonjour
merci ta solution marche
je clic resolu.