supprimer dans listbox

Bonjour Christophe, le Forum

Attention, je pense que tu es nouveau sur ce Forum, et conséquent je t'invite à lire notre Charte car ton message n'est pas vraiment 'XLD Compliant'...

Sinon voici un moyen :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox ('vous êtes sur le point de supprimer cette archive'), vbYesNoCancel
If vbYes Then
    With Sheets('Feuil2')
    .Rows(Me.ListBox1.ListIndex + 1 + 4).Delete
    End With
    Me.ListBox1.Clear
End If

End Sub

Cliquez pour agrandir...

Explication :
.Rows(Me.ListBox1.ListIndex + 1 + 4).Delete

Le '+ 1' est pour le décalage 'naturel' d'une ListBox.ListIndex qui est en base 0 (0 = Premier élément)

Le '+ 4' est l'équivalence sur ta Feuille du départ du Tableau en Ligne 4...

Bonne Journée
[ol]@+Thierry[/ol]

merci thierry
je vais lire la charte...
bonne journée et merci encore