doublon dans combobox

[chris54]

bonjour les forumistes
comment supprimer a l'initialisation les doublons dans une rowsource de combobox( question g pense x fois posé... )en utilisant la formule suivante
ma macro ressemble a celà de memoire
dim derlign...
dim Plaglist...
combobox1.rowsource= "2!" & plaglist
merci beau coup de ton aide 🙂

 

[Pierrot93]

Re : doublon dans combobox

Bonjour Christ

pour alimenter un combo sans doublon, j'utilise une collection, comme ci dessous :

Private Sub UserForm_Initialize()
Dim P As Range, MaPlage As Range
Dim x As New Collection
'en considérant que les valeurs sont dans la colonne F
Set MaPlage = Range([F1], [F1].End(xlDown))

For Each P In MaPlage
    On Error Resume Next
    x.Add P, CStr(P)
    If Err = 0 Then ComboBox1.AddItem (CStr(P))
    On Error GoTo 0
Next P

Bon après midi
@+