placer un bouton sur une cellule choisie

Bonjour,

Des idées?
Je propose par double clique

'-----------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If MsgBox("Voulez-vous supprimer la ligne " & Target.Row, 4,
Application.UserName) = 6 Then
Rows(Target.Row).Delete 'pour supprimer
End If
End Sub
'-----------------

--
Salutations
JJ


<c.estrem@gmail.com> a écrit dans le message de news:
6137603f-0f00-4cec-8ef5-1cbbb969d882@y38g2000hsy.googlegroups.com...
Bonjour,
J'alimente une base de données: 1 ligne est crée à chaque itération.
J'aimerais créer en bout de chaque ligne un bouton "EFFACER" qui me
permettrait d'effacer la ligne correspdante au bouton.
Des idées?
Merci.

Jacky,
merci.
:)

Cependant j'aimerais juste appliquer cette target sur les cellules A1:
à la derniere cellule de la colonne A remplie.
Comment je fais?

Re'....
'-----------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("a1:a" & Cells(Rows.Count, "a").End(3).Row)) Is
Nothing Then Exit Sub
Cancel = True
If MsgBox("Voulez-vous supprimer la ligne " & Target.Row, 4,
Application.UserName) = 6 Then
Rows(Target.Row).Delete
End If
End Sub
'------------

--
Salutations
JJ


<c.estrem@gmail.com> a écrit dans le message de news:
118c514c-d271-4846-8044-6e8f942e40c5@27g2000hsf.googlegroups.com...
Cependant j'aimerais juste appliquer cette target sur les cellules A1:
à la derniere cellule de la colonne A remplie.
Comment je fais?