Microsoft 365 Combobox sont doublons

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dubarre

XLDnaute Occasionnel
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

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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
2 K
Réponses
13
Affichages
571
Réponses
33
Affichages
3 K
Réponses
6
Affichages
892
Réponses
24
Affichages
2 K
Retour