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 : Sélectionner tout - Visualiser dans une fenêtre à part
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