Bonsoir,

Je termine actuellement une application VBA, mais je sèche sur un point.

J'ai deux listbox, une qui récupère les métiers de différentes personnes, l'autre qui indique les noms correspondant au métier sélectionné.

Le bug est que dans Listbox1, les métiers apparaissent en doublon et n'affichent en Listbox2 qu'un seul nom.

Comment puis-je régler le problème ?

Merci à vous

PS : Le code :

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_Activate()
Dim n As Long
n = Rows.Count
n1 = Range("A65536").End(xlUp).Row
For i = 2 To n1
 
StatusBar1.SimpleText = i & " lignes chargées sur " & n
 
ListBox2.AddItem Cells(i, 4)
 
If Cells(i, 5).Value < Now Then
ListBox3.AddItem Cells(i, 1).Value & " " & Cells(i, 2).Value
End If
Next i
MsgBox n1 - 1 & " C.V. disponibles actuellement"
StatusBar1.Visible = False
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub ListBox2_change()
 
ListBox4.Clear
 
ListBox4.AddItem Cells(ListBox2.ListIndex + 2, 1).Value & " " & Cells(ListBox2.ListIndex + 2, 2).Value
 
End Sub