Filtrer cellules / insérer dans listbox

Version imprimable

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:

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:

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

Bonsoir,
une idée à adapter à ta feuille et tes cellules

Code:

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
32
33
34
35
Private Sub UserForm_Initialize()
Dim n1 As Integer
n1 = Range("a" & Rows.Count).End(xlUp).Row
    Creer_Liste_SansDoublons Range("A2:A" & n1)
End Sub
 
Sub Creer_Liste_SansDoublons(Plage As Range)
Dim Cell As Range
Dim Un As Collection
Dim i As Long
Set Un = New Collection
On Error Resume Next
For Each Cell In Plage
   If Cell <> "" Then Un.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0
For i = 1 To Un.Count
   ListBox1.AddItem Un.Item(i) 'listbox "metiers"
Next i
Set Un = Nothing
End Sub
Private Sub ListBox1_Click()'click sur listbox "metiers"
Dim repert As String, cel As Range
Dim n1 As Integer
n1 = Range("a" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
ListBox2.Clear'listbox noms
    repert = UCase(ListBox1.Value)
    For Each cel In Range("a2:a" & n1)
        If UCase(cel) = repert Then
            ListBox2.AddItem cel(1, 2)
        End If
    Next cel
Application.ScreenUpdating = True
End Sub

PS : ref => http://silkyroad.developpez.com/excel/doublons/#LIV-A
je n'ai pas repris le reste de ton code comme :

Code:

StatusBar1.SimpleText = i & " lignes chargées sur " & n

à toi d'adapter

bonne soirée

28/02/2011, 12h16
olidefoer

C'est parfait.

Merci beaucoup pour ton aide

Bonne journée.