charger un listbox à partir d'un autre listbox

Bonjour !
J'ai un userform avec 2 listbox
Le 1er permet le choix d'une rubrique principale et le 2eme doit se charger à partir de la sélection du 1er. Je joins le tableau pour être plus clair

Dans le userform :

Code:

---

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

Private Sub UserForm_Initialize()   Me.ListBox1.List = Sheets("Affectation").Range("A1:F" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Value   End Sub   Private Sub ListBox1_Click() Dim n As String Dim i As Integer   n = ListBox1.Value ActiveCell = n   i = Me.ListBox1.ListIndex   ListBox2.List = Sheets("Affectation").Range("B&i:G&i")   End Sub

---

Listbox1 : pas de problème mais si je clique sur poisson par exemple rien ne se passe (sauf le systeme qui me dit qu'il ne peut rien pour moi!)
Mon problème est que je n'arrive pas à charger listbox2 .... je pense que je ne dois pas essayer de le faire dans cette procédure mais je n'ai pas trouver la solution.

Pourriez-vous m'aider ... en vous remerciant !

Bonjour Alain,

Citation:

---

Mon problème est que je n'arrive pas à charger listbox2 .... je pense que je ne dois pas essayer de le faire dans cette procédure mais je n'ai pas trouver la solution.

---

Tu peux très bien le faire ainsi mais ta seconde liste est horizontale et non verticale il faut la transposer.

Code:

---

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

Private Sub UserForm_Initialize() With Sheets("Affectation") Me.ListBox1.List = .Range("A1:F" & .Cells(Rows.Count, 1).End(xlUp).Row).Value End With End Sub   Private Sub ListBox1_Click() Dim n As String Dim i As Integer Dim tb n = ListBox1.Value ActiveCell = n   i = Me.ListBox1.ListIndex + 1 tb = Sheets("Affectation").Range("B" & i & ":G" & i).Value ListBox2.List = Application.Transpose(tb)   End Sub

---

Comme ceci, cela devrait fonctionner et il faut tenir compte que l'index de la liste commence à zéro.
Tu peux aussi faire varier le G en fonction de la quantité des données.

Merci beaucoup !!! tu m'as sorti de l'ornière !! effectivement je pensais qu'on pouvait charger avec une liste horizontale !!!