Supprimer enregistrement dans listbox

[vmax67]

Bonjour à tous

j'ai un petit soucis, je n'arrive pas à supprimer un enregistrement lorsque celui-ci est sélectionner dans
dans ma listbox. Voir fichier.

Par avance merci.

Vmax

 

[Theze]

Bonjour,

Il te suffit de supprimer toute la ligne avec EntireRow :

Private Sub B_sup_Click()
    If MsgBox("Etes vous sûr de suppimer " & f.Cells(Enreg, 1) & "?", vbYesNo) = vbYes Then
        Enreg = Me.Enreg
        f.Cells(Enreg, 1).EntireRow.Delete Shift:=xlUp
        raz
        'Me.Enreg = ""
        UserForm_Initialize
    End If
End Sub

 

[vmax67]

Merci beaucoup, c'est parfait.

Vmax