Suppression texte dans listbox

Résolu
MD -  
Bonjour,

Etant donné que j'avais eu une réponse très intéressante la dernière fois, je me permets d'en poser une nouvelle.

J'ai une listbox dans laquelle viennent s'ajouter des lignes de texte.
exemple :
TEXTE 1
TEXTE 2
TEXTE 3
Je prends au fur et à mesure les textes de cette listbox pour les traiter.

Lorsque je suis occupé à traiter le premier texte de la listbox et que ce texte est TEXTE 1, j'aimerais de suite rechercher dans la listbox si TEXTE 3 s'y trouve et l'effacer de la listbox.

Ma recherche fonctionne correctement, en effectuant le programme pas à pas je vois qu'il trouve TEXTE 3 mais je n'arrive pas à l'effacer de la listbox.

Avez-vous une astuce pour m'aider ?

merci

6 réponses

  1. MD
    OK, ça tient très bien la route pour la suite de mon programme.

    Merci pour vos super idées, je clôture ma question
    1. MD
      C'est énorme VB, il ne faut pas dire le contraire.
      Ta solution n'a pas fonctionné mais en mixant un peu le tout, cela fonctionne.
      Voici mon code

      Private Sub SUPPRESSION001()
      Dim index As Integer = AdresseGroup.FindStringExact("TEXTE 3")
      If index > -1 Then
      AdresseGroup.SetSelected(index, True)
      AdresseGroup.Items.RemoveAt(index)
      End If
      End Sub

      Je vais continue mon programme en le complexant un peu plus et on va voir si cela tient la route.
      Encore merci pour vos idées
      1. MD
        Lorsque le programme passe sur la suppression de l'item est plante.
        ce ne serait pas plus facile s'il me renvoyait l'index du "TEXTE 3" et que j'effacerais cet index ?
        1. cs_Le Pivert Contributeur
          adapter le nom de la listBox 

           Private Sub Remove()
        For i As Integer = listnew.Items.Count - 1 To 0 Step -1
            If listnew.GetSelected(i) Then
                listnew.Items.RemoveAt(i)
            End If
        Next i
    End Sub


          Voilà
      4. MD
        Merci,

        Désolé, j'ai oublié de mentionner que je suis en VB2017 express

        Voici mon code

        Private Sub SUPPRESSION001()
        Dim I As Integer
        TextBox6.Text = AdresseGroup.Items.Count - 1.ToString
        If TextBox6.Text > -1 Then
        For I = 0 To TextBox6.Text
        Text_Conversion.Text = AdresseGroup.Items(I).ToString
        If Text_Conversion.Text = "TEXTE 3" Then
        AdresseGroup.SelectedIndex.ToString.Remove(I) <== c'est cette ligne où je n'arrive pas à trouver ce qe je dois mettre
        End If
        Next
        End If
        End Sub