Fonctionnement ListBox

[Mouchty85]

Bonjour a tous,
Je réalise un petit programme, et j'utilise une ListBox.
Jusqu'a présent j'ai su la remplir, mais je ne réussi pas à l'utilisé.
Je m'explique, les élément de ma listbox son les valeur d'un tableau. ce que je voudrai c'est qu'en séléctionnant une des ligne et en appuyant sur SUPPRIMER, il m'aille supprimer la ligne sélévctionné dans le tableau correspondant.

Pour vous aidé, ci joint mon fichier.

Merci par avance

 

[ziopizza]

Re : Fonctionnement ListBox

Bonsoir Mouchty85
Adapte çà, a placer dans le UserForm,
A la selection suprime.
Private Sub ComboBox1_Click()
Sheets(1).Range("A" & ComboBox1.ListIndex + 1).Select

Selection.Rows.Delete Shift:=xlUp
End Sub


Si la liste et dans feuille 1 remplir la combo
Private Sub UserForm_Initialize()
For n = 1 To 19
ComboBox1.AddItem (Sheets(1).Cells(n, 1))
Next n
End Sub
Salut Yves