Suppression texte dans listbox

Résolu
MD -  
 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

  2. 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
    0
  4. 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 ?
    0
    1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
       
      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à
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. 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
    0
  7. 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
    0

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses