Microsoft 365 Combobox sont doublons

[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 2

'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'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

 

[CHALET53]

Bonjour,

Avec un fichier, c'est plus facile

un exemple

 

[patricktoulon]

bonjour @dubarre @CHALET53
IL arrive que certains inhibent vbs de leur machine? de ce fait le scripting dictionary bye bye!!

je te propose une autre solution en reprenant l'exemple de @CHALET53 en se passant du dictionnaire
c'est ma méthode 1 avec match qui consiste a matcher sur la source
si le match donne pas l'index de la boucle c'est qu'il est déjà passé (simple comme bonjour)
compatible MAC

 

[dubarre]

Bonjour veuillez m'excuser pour la réponse tardive merci pour vos propositions cela me permet de voir différentes méthodes en vous souhaitant une bonne journée