Bouton et suppression d'une ligne de listbox [Résolu]

Signaler
Messages postés
17
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
18 mars 2007
-
Messages postés
17
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
18 mars 2007
-
Salut à tous

Comment peux-t-on supprimer à partir d'un Commandbutton une ligne de listbox mais par rapport à son contenu plutot qu'à sa position

par exemple dans une listbox on a :
toto
titi
tata

on veux supprimer titi par rapport à "titi" plutot qu'à sa position 1 dans la liste

J'espère avoir était clair

Merci

@ bientot Kossuth

2 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Private Sub UserForm_Initialize()  ' ou Form_Load en VB6
    TextBox1 = "titi"
   
    ListBox1.AddItem "tata"
    ListBox1.AddItem "toto"
    ListBox1.AddItem "titi"
    ListBox1.AddItem "tutu"
End Sub

Private Sub CommandButton1_Click()
    Dim I As Integer
   
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.List(I) = TextBox1.Text Then
            MsgBox TextBox1.Text & " est à la ligne " & I + 1
            ListBox1.RemoveItem I
            Exit For
        End If
    Next
End Sub

MPi
Messages postés
17
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
18 mars 2007

Merci beaucoup MPi

ça marche nickel

Kossuth