Combobox sans doublons

[Arnaud_Dubarre]

Bonjour à tous,

Je viens vers vous, car je cherche depuis quelques jours à alimenter une combobox sans qu’il y ait de doublons j’ai trouvé ce code suivant sur Internet mais il me pose problème à la base il fonctionne mais il me met d’une part beaucoup de temps à se charger mais d’autre part fonctionne une fois sur 10 pouvez-vous m’aider s’il vous plaît le seul critère qui doit y avoir ce qu’il doit partir de la ligne 3

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Alimente la combobox thème sans doublon$
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
    Dim Cell As Range

'    'Supprime les données existantes dans le ComboBox
    Usffiche_tableau.Cbxtheme.Clear

    'Boucle sur les cellules de la plage pour
    'alimenter le ComboBox
    For Each Cell In Worksheets("BDD_Oeuvres").Range("K2:K10000")
        Usffiche_tableau.Cbxtheme = Cell
        'remplissage sans doublon
        If Usffiche_tableau.Cbxtheme.ListIndex = -1 Then _
            Usffiche_tableau.Cbxtheme.AddItem Cell
    Next Cell

Pouvez-vous m’aider s’il vous plaît

[Mimimathy]

Bonjour,

A tester sans conviction

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'Alimente la combobox thème sans doublon$
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  Dim tablo
  'Supprime les données existantes dans le ComboBox
  Usffiche_tableau.Cbxtheme.Clear
  Set f = Sheets("BDD_Oeuvres")
  Set mondico = CreateObject("Scripting.Dictionary")
  tablo = f.Range("K2:K" & f.[K65000].End(xlUp).Row)
    For i = LBound(tablo) To UBound(tablo)
      If tablo(i, 1) <> "" Then mondico(tablo(i, 1)) = ""
    Next i
  Cbxtheme.List = mondico.keys

[Arnaud_Dubarre]

Bonjour,

Merci pour ta proposition cela fonctionne en vous souhaitant une bonne journée cordialement