Suppression texte dans listbox

Résolu

MD -
MD - 29 janv. 2018 à 12:57

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

A voir également:

Suppression texte dans listbox
Forcer suppression fichier - Guide
Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
Transcription audio en texte word gratuit - Guide
Excel cellule couleur si condition texte - Guide
Suppression compte gmail - Guide

6 réponses

Réponse 1 / 6

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

voir ici:

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G

Réponse 2 / 6

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

Réponse 3 / 6

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Voir ceci alors:

'removing the selected item

http://w3ii.com/index.html

Réponse 4 / 6

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 ?

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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à

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

Posez votre question

Réponse 5 / 6

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

Réponse 6 / 6

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

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel formule : savoir si une cellule contient partie texte

copie de texte

Votre réponse

Discussions similaires