supprimer un item choisi d'1 listbox

[liline]

bonjour,
J'ai une listbox remplie de données, une textbox et un bouton "supprimer".
Lorsque je sélectionne une valeur dans la listbox, elle apparait dans la textbox. en appuyant sur le bouton "supprimer", je voudrais que l'item sélectionné dans listbox s'efface.
le problème, c'est que dès que je clique sur le bouton, l'item sélectionné se déselectionne au profit de la première valeur de la liste.
Comment faire pour effacer la valeur que j'ai sélectionnée , et non la première de la liste ?

Voici une partie de mon code :

Private Sub CommandButton1_Click()

dim i as integer
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
ListBox1.RemoveItem (i)
End If
Next i

d'avance, merci de votre aide !

 

[Roland]

salut liline

Listindex te donne directement l'élément sélectionné dans la listebox

Dim i As Integer
i = ListBox1.ListIndex
Range("A1").Offset(i, 0).Delete

Pour que la zone de la listebox suive les suppressions, tu nommes la zone.

A1 représente la première cellule de la liste
A++

 

[Alain]

Bonjour,


Une ligne suffit :


ListBox1.RemoveItem (ListBox1.ListIndex)


@+

 

[liline]

merci pour ton aide ! bisous !
a bientot