Bonjour ,

J'aimerais faire deux listes déroulantes qui s'alimente entre elle selon le choix que je fais dans l'une.

En gros :
ma première liste ma deuxième liste
A 1
A 2
B 3
C 4
C 5

Si je sélectionne dans ma première liste : A
Alors ma deuxième liste affiche seulement : 1, 2.

J'ai fais un bout de code mais ça marche pas. Quelqu'un pourrait il venir à mon secours, sinon je deviens chauve.

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
31
Private sub UserForm_Initialize()
Dim J As Integer
'récupère les données de la colonne A...
For J=2 to Range ("A65536").End(xlUp).Row
'...et filtre les doublons
If ComboBox1.ListIndex=-1 Then ComboBox2.AddItem Range("A"&j)
Next j
 
'récupère les données de la colonne B...
For J=2 to Range ("A65536").End(xlUp).Row
'...et filtre les doublons
If ComboBox2.ListIndex=-1 Then ComboBox2.AddItem Range("B"&j)
Next j
 
LaDerniere=Application.Workbooks("test.xls").Worksheets ("Feuil1").Cells (4000, 2).End(x1Up).Row
 
k=1
 
For i = To LaDerniere
If Application.Workbooks("test.xls").Worksheets ("Feuil1").Cells (i, 2).Value = 
 
ComboBox1.Value And Application.Workbooks("test.xls").Worksheets ("Feuil1").Cells (i, 3).Value = ComboBox2.Value Then
Application.Workbooks("test.xls").Worksheets ("Feuil1").Range ("A"&i&":E"&i&"").Copy
Application.Workbooks("test.xls").Worksheets ("Feuil1"). Range ("F"&k&"").Select
ActiveSheet.Paste
 
k=k+1
 
End If
Next i
End Sub