Re : Probleme de code dans un Userform
Bonjour Rolland,
Merci pour ta reponse, j'ai suivi ce que tu m'as propose de faire mais les donnees que j'ai selectionne dans mes combobox n'apparaissent toujours pas dans ma listbox, je ne comprends pas pourquoi. Merci de m'aider je t'ecris mon code:
Private Sub UserForm_Initialize()
Dim j As Integer
'Récupère les données de la colonne A...
For j = 1 To Range("B65536").End(xlUp).Row
CbPROJECT = Range("B" & j)
'...et filtre les doublons
If CbPROJECT.ListIndex = -1 Then CbPROJECT.AddItem Range("B" & j)
Next j
Dim i As Integer
'Récupère les données de la colonne A...
For i = 1 To Range("C65536").End(xlUp).Row
CbJOB = Range("C" & i)
'...et filtre les doublons
If CbJOB.ListIndex = -1 Then CbJOB.AddItem Range("C" & i)
Next i
Dim Cell As Range
Dim Unique As New Collection
Dim Valeur As Range
Dim c As Integer
Dim d As Integer
c = Range("A65536").End(xlUp).Row
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "20;100;20;60"
ListBox1.RowSource = "A2:A" & c
For Each Cell In Range("A1:A" & c)
Unique.Add Cell, CStr(Cell)
Next Cell
On Error GoTo 0
End Sub
Jnono