Retirer doublon ComboBox [Résolu]

Signaler
-
 nathanbossard31 -
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

2 réponses

Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
112
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


Merci beaucoup de ton aide, problème résolu
Messages postés
14782
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 septembre 2020
436
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

Merci de ton aide, problème résolu