Bonjour à tous,
est-ce que c'est possible de lier l'index d'un élément dans ListBox1 à PLUSIEURS éléments dans ListBox2, et comment coder celà?
J'ai essayé ceci mais ça ne fonctionne pas

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
19
20
21
22
23
24
25
26
27
28
29
30
Option Explicit
 
Private Sub UserForm_Initialize()
ComboBox1.Clear
Dim J As Integer
      'Définit le nombre de lignes dans la colonneH et rempli le cbx
    For J = 1 To Range("H65536").End(xlUp).Row
    ComboBox1 = Range("H" & J)
    'filtre les doublons
    If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("H" & J)
    Next J
     ComboBox2.Clear
End Sub
 
 
Private Sub ComboBox1_Click()
    'Remplissage Combo2
    Select Case ComboBox1.Value
    Case 1
    ComboBox2.AddItem "CasAA"
    ComboBox2.AddItem "CasAB"
    Case 2
    ComboBox2.AddItem "CasBA"
    ComboBox2.AddItem "CasBB"
    Case 3
    ComboBox2.AddItem "CasCA"
    ComboBox2.AddItem "CasCB"
    End Select
 
End Sub