Listbox sans doublon

[antiphot]

Bonjour à toutes et à tous

J'aimerais alimenter une listbox sans doublon. Est ce qu'il est possible de le faire en gardant le code ci-dessous ou bien est il necessaire de tout remanier ?

Merci par avance pour vos conseils
Philippe

Sub RechDMaPlanifier()
Application.ScreenUpdating = False
Set ListeDM = Sheets("DmAttentePlanif").Range("A2:A" & Sheets("feuil1").Range("A65536").End(xlUp).Row)
With ListeDM
        Set c = .Find("D", LookIn:=xlValues)
           If Not c Is Nothing Then
                firstaddress = c.Address
                    Do
                        Set c = .FindNext(c)
                        
                        UserForm1.lbDMaPlanif.AddItem c.Offset(0, 1)
                        
                    Loop While Not c Is Nothing And c.Address <> firstaddress
            End If
End With
Call TriListbox(UserForm1.lbDMaPlanif)
Application.ScreenUpdating = True
End Sub
Private Sub TriListbox(oListe As Object)
    ' Tri de la liste
    Dim i As Long, j As Long
    Dim temp1 As String
    
    For i = 0 To oListe.ListCount - 1
        For j = 0 To oListe.ListCount - 1
            If oListe.List(i) < oListe.List(j) Then
                temp1 = oListe.List(i)
                oListe.List(i) = oListe.List(j)
                oListe.List(j) = temp1
            End If
        Next j
    Next i
End Sub

 

[antiphot]

Re : Listbox sans doublon

Bon en fait je pense avoir trouvé la solution en utilisant .Dictionary

Sub RechDMaPlanifier()
Application.ScreenUpdating = False
Set ListeDM = Sheets("DmAttentePlanif").Range("A2:A" & Sheets("feuil1").Range("A65536").End(xlUp).Row)
 Set Dictionaire = CreateObject("Scripting.Dictionary")
    
With ListeDM
        Set c = .Find("D", LookIn:=xlValues)
           If Not c Is Nothing Then
                firstaddress = c.Address
                
                    Do
                    
                        Set c = .FindNext(c)
                        If Not Dictionaire.Exists(c.Offset(0, 1).Value) Then Dictionaire.Add c.Offset(0, 1).Value, c.Offset(0, 1).Value
                        
                       UserForm1.lbDMaPlanif.List = Dictionaire.items
                        
                        
                    Loop While Not c Is Nothing And c.Address <> firstaddress
                    
            End If
End With
Call TriListbox(UserForm1.lbDMaPlanif)
Application.ScreenUpdating = True
End Sub

 

[PascalXLD]

Re : Listbox sans doublon

Bonjour

2 petits liens

https://www.excel-downloads.com/threads/vba-remplir-une-combobox-sans-doublon.83545/

https://www.excel-downloads.com/thr...ans-doublons-et-par-ordre-alphabetique.81048/

 

[BOISGONTIER]

Re : Listbox sans doublon

Bonjour,

Listes sans doublons triée

Private Sub UserForm_Initialize()
   Set MonDico = CreateObject("Scripting.Dictionary")
   For Each c In Range(Sheets("feuil1").[A2], Sheets("feuil1").[A65000].End(xlUp))
      If Not MonDico.Exists(c.Value) And c.Value <> "" Then MonDico.Add c.Value, c.Value
   Next c
   Me.ComboBox1.List = MonDico.items
End Sub

JB