Valeur item listbox

Bonjour,

Je cherche à récupérer la valeur de certain item dans une listbox avec la méthode listindex. (ligne préalablement sélectionnée dans la listbox)

J'ai ce code ci dessous mais je ne parviens pas à le faire fonctionner.

Private Sub suprimlign_Click() 'supprimer '
Dim Indexlist
If Combomouv1.Value = "Entrée" Then
Indexlist = Listmouv.ListIndex

 With Sheets("MAGASIN")
    For Each c In .Range("a2:a" & .Range("a" & .Rows.Count).End(xlUp).Row)
If .Range("g" & c.Row).Value = Combomouv4.Value And _
.Range("c" & c.Row).Value = Listmouv.List(Indexlist, 1).Value And .Range("f" & c.Row).Value = Listmouv.List(Indexlist, 4).Value Then
c.EntireRow.Delete
        End If
    Next c
End With
Listmouv.RemoveItem (Listmouv.ListIndex)
End If

Pouvez vous me dire si la méthode est valable ou si il existe une autre solution.

Merci.

Bonjour,

Erreur de débutant .

Il faut enlever . value de l'indexlist.

Je clôture.