Bouton et suppression d'une ligne de listboxRésolu

Question

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

cs_MPi · Accepted Answer

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

cs_kossuth · Answer

Merci beaucoup MPi

ça marche nickel

Kossuth

Bouton et suppression d'une ligne de listbox

2 réponses

Votre réponse

Discussions similaires