Discussion :

[Alain7751]

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 :

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

[anasecu]

Bonjour Alain,

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 :

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

[Alain7751]

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