Discussion :

[dodo28]

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 :

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

[david_atx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo28]

bonjour
merci ta solution marche
je clic resolu.