Enlever une ligne d un listboxRésolu

Question

Voil&#224; en fait j ai un pti probleme de doublons et je voudrais les virer ...

Voici le traitement que je fais mais je n arrive pas a enlever la ligne qui est en double
Evidement LgLigneTab est le nombre de ligne de la listbox

For i = 1 To LgLigneTab
            LignePrecedente = recherche.listtrouv&#233;.List(i)
            LigneSuivante = recherche.listtrouv&#233;.List(i + 1)
                If LignePrecedente = LigneSuivante Then
                'enlever la ligne suivante'
                End If
 Next i

cs_Jack · Accepted Answer

Salut
Ta r&#233;ponse est dans le forum, suffit de taper 'doublon listbox' dans la case recherche !
Dans ton cas, tu ne v&#233;rifie que les doublons successifs, ce qui sous-entend que ta liste est class&#233;e (sort).
De plus, il faut savoir que, dans une boucle For-Next, la valeur finale de la boucle n'est pas recalcul&#233;e &#224; chaque cycle, donc si tu supprimes un &#233;l&#233;ment du ListBox, il y aura erreur en fin de boucle --> Utilise plut&#244;t les boucles Do While-Loop
Pour supprimer un &#233;l&#233;ment, c'est "Remove x" o&#249; x est l'index de la ligne

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_rene38 · Answer

Bonjour
Une autre solution (toujours en supposant que la liste est tri&#233;e par Sorted=True) : 
commencer par la fin.

For i = recherche.listtrouv&#233;.ListCount - 1 To 1 Step -1
    If recherche.listtrouv&#233;.List(i) = recherche.listtrouv&#233;.List(i - 1) Then 
               recherche.listtrouv&#233;.RemoveItem (i)
    End If
Next i

Enlever une ligne d un listbox

2 réponses

Discussions similaires