Enlever les doublons

[Cougar]

Bonjour le forum,

Suite à ces lignes de code, je voudrais enlever les doublons dans mon combobox.

For Each c In .Range("c4:c35,i4:i35")
ComboBox1.AddItem c
Next c
End With

Que manque-t-il pour ne pas avoir de doublons ?

Merci

 

[Pierrot93]

Re : Enlever les doublons

Bonjour Cougar

Peut être comme ci dessous :

Dim x As New Collection, c as Range
For Each c In .Range("c4:c35,i4:i35")
On Error Resume Next
    x.Add c, CStr(c)
    If Err = 0 Then ComboBox1.AddItem (CStr(c))
    On Error GoTo 0
Next c
End With

A tester...

bonne soirée
@+

 

[Cougar]

Re : Enlever les doublons

Bonjour Pierrot93, le forum,

Merci pour ton aide, le tout fonctionne très bien.

 

[Dull]

Re : Enlever les doublons

Salut Cougar, le Forum

Regardes ce Fichier
Tu auras des doublons dans la liste mais pas dans la ComboBox (cequetudemandes)

Bonne Journée

EDIT: Juste avant d'envoyer le Fichier, que vois-je, Le Pierrot 🙂 qui a déjà proposé une solution. J'envoie quant même la mienne (Aidéd'hervé) 😀