Retirer doublon ComboBoxRésolu

Question

Bonjour, 
Je souhaite supprimer les doublons de ma liste combobox, mais il y a une erreur dans mon utilisation de "Contains", apparement NewList ne serait pas bien défini … Je ne sais pas comment la définir pour pouvoir utiliser la fonction contains. 

Cbfournisseurclient est une combobox avec des doublons que je souhaite retirer. 

Merci de votre aide

Dim NewList As Collection
Dim i As Integer

For i = 0 To Cbfournisseurclient.ListCount - 1
    If Not NewList.Contains(Cbfournisseurclient.List(i)) Then
        NewList.Add (Cbfournisseurclient.List(i))
    End If
Next
Cbfournisseurclient = NewList

cs_Le Pivert · Answer

Bonjour,

voir ceci pour ton problème

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F 
 
garde ce lien il te sera utile pour la suite

Whismeril · Answer

On n'aime pas plus les doublons dans le forum que toi dans ton combobox.
 
Si tu n'as pas de réponse "immédiate", c'est qu'on est occupé à autre chose.
 
De plus, précédemment je t'ai demandé d'utiliser la coloration syntaxique, comme karamel a édité ton message je pense que tu ne l'as pas fait.


Essaye ça

Dim NewList As Collection 'déclaration de la variable
Set NewList = New Collection 'initialisation de la variable
Dim i As Integer

For i = 0 To Cbfournisseurclient.ListCount - 1
    If Not NewList.Contains(Cbfournisseurclient.List(i)) Then
        NewList.Add (Cbfournisseurclient.List(i))
    End If
Next
Cbfournisseurclient = NewLis


Déclarer une variable, ça veut dire créer des espaces dans la mémoire. Initialiser une variable ça veut dire mettre des valeurs de départ dans ces espaces mémoires 

Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Retirer doublon ComboBox

2 réponses

Votre réponse