Supprimer doublons combobox

[rudymagny]

Bonjour le forum,
je suis sur une appli avec combobox mais je veux supprimer les doublons. J'avoue j'ai vu pleins de fils mais je n'arrive pas adapter dans mon cas. Faut dire que ça fait des semaines que j'ai la tête plongée dans excel et je sature un peu aujourd'hui.
Voici mon code:

    Set f = Sheets("Stock")
    Me.ComboBox1.Clear
        For Each c In Range(f.[A3], f.[A65536].End(xlUp))
        'S'il y a un numéro de série
        If c.Offset(, 2) <> "" Then
            Me.ComboBox1.AddItem c.Offset(, 0)
        End If
    Next c

Sachant que je souhaite garder ce code

merci à vous

 

[13GIBE59]

Re : Supprimer doublons combobox

Bonjour.

Ta combo est sur la feuille ou sur un userform ?

 

[rudymagny]

Re : Supprimer doublons combobox

Bonjour 13GIBE59

La combo est dans un USF.

merci

 

[rudymagny]

Re : Supprimer doublons combobox

Bon bah voillà j'ai adapté :

    Me.ComboBox1.Clear
    Set f = Sheets("Stock")
    For Each c In Range(f.[A3], f.[A65536].End(xlUp))
        'S'il y a un numéro de série
        If c.Offset(, 2) <> "" Then
            On Error Resume Next
            Collec.Add c, CStr(c)
            If Err = 0 Then ComboBox1.AddItem (CStr(c))
            On Error GoTo 0
        End If
    Next c

grace à ce fil : https://www.excel-downloads.com/threads/doublon-dans-combobox.71464/
merci à Pierrot93

désolé pour 13GIBE59 si tu cherchais