J'avais du mal à supprimer les items en doubles dans une listbox donc j'ai cherché comment faire et j'ai trouvé ce ptit bout de code =), ça n'est pas de moi mais ça peut servir a certain (comme moi par exemple :p)
la source est de Fredrik Schultz lol merci a lui
Source / Exemple :
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
Conclusion :
Donc pour l'utiliser il suffit d'apeller la fonction:
SupDoubles MaListbox
voilou codez bien ^^
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.