Un ListBox2 qui dépend du choix de l'autre ListBox1
Bonjour à tous,
Je suis en train de créer 2 listBox, dont le 2ème dépend du 1er. J'ai un grand tableau de 1000 lignes, et dans le 1er listBox, j'affiche ce qu'il y a dans la colonne A (NumDC)
Question:
J'aimerais que le 2ème ListBox affiche la cellule B(NomPrenom) qui correspond à la ligne séléctionnée dans le 1er ListBox. Comment faire celà?
Mon vrai problème est que je ne sais pas comment récupérer Le ListBox1.ListIndex à utiliser après l'AddItem
Le code en italique rouge est faut! mais je ne sais pas comment le tourner.
MERCI de votre AIDE
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub UserForm_Initialize()
ListBox1.List() = Range("A1:A65530").Value
End Sub
Private Sub ListBox1_Change()
Dim I As Integer
I = ListBox1.ListIndex
Dim Ws As Worksheet
' Affichage de la cellule B dont l'Index correspond àListBox1Index dans le List2
If ListBox1.Value <> 0 Then
ListBox2.AddItem Ws.Range("B", I)
End If
End Sub |
