supprimer dans listbox

[christophe]

bonjour le forum
j'ai un petit souci dans le fichier joint tout est prêt dedans ... [file name=essaisupplistbox.zip size=11789]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaisupplistbox.zip[/file]

 

[_Thierry]

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

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]

 

[christophe]

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