cs_kossuth
Messages postés17Date d'inscriptionlundi 5 mars 2007StatutMembreDernière intervention18 mars 2007
-
18 mars 2007 à 01:30
cs_kossuth
Messages postés17Date d'inscriptionlundi 5 mars 2007StatutMembreDernière intervention18 mars 2007
-
18 mars 2007 à 21:20
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
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 18 mars 2007 à 03:53
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