Discussion :

[snoopy69]

Bonjour à tous,

J'ai créer un listbox dans un formulaire que je remplis selon certaines conditions.

Une fois mon listbox remplis, il se peut qu'il y ait des doublons (plusieurs fois la même ligne).

Comment puis-je faire pour supprimer les doublons ?

Je sais que si je faisais sur SQL je pourrais utiliser DISTINCT ... mais dans mon cas ... pas de SQL ... (dommage d'ailleurs) ...

Si vous avez une idée elle est la bienvenue ...

Salutations à vous tous et merci pour votre aide ...

[snoopy69]

J'ai trouvé ...

Un gros coup de chance m'a permis de trouver ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub SupDoubles(lst As ListBox)
     Dim iPos As Integer
     iPos = 0
     'Si la listbox est vide il quitte la fonction
     If lst.ListCount < 1 Then Exit Sub
 
     Do While iPos < lst.ListCount
     lst.Text = lst.List(iPos)
     'Verifie si le text existe deja
 
     If lst.ListIndex <> iPos Then
     'Si c'est le cas il supprime et garde la position iPos...
     lst.RemoveItem iPos
     Else
     'Si ce n'est pas le cas il change la position iPos...
     iPos = iPos + 1
     End If
     Loop
     'Utiliser pour désélectionner la dernière ligne
     lst.Text = "-"
End Sub

Voici comment utiliser la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SupDoubles ListResultatRecherche

ListResultatRecherche --> Nom de la listbox
SupDoubles --> Nom de la fonction

[Edge38]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SupDoubles ListResultatRecherche

ListResultatRecherche --> Nom de la listbox
SupDoubles --> Nom de la fonction[/QUOTE]



Bonjour à tous
J'ai utilisé cette Procédure/Boucle pour éliminer tous les doublons de ma listbox

quand j'exécute à l'ouverture de mon userform, (dans la procédure InitializeUserForm) la fonction SupDouble un message d'erreur apparaît : "Incompatibilité de type" et excell me surligne le module qui me permet d'ouvrir mon userform.


Est-ce-que quelqu'un sait quelle est l'erreur et pourrait m'éclairer sur le sujet svp ?