bouton suppression

[maTTTTTTTTTTrix]

Bonjour

j'ai une macro sur un bouton nommé 'suppression'

Private Sub CommandButton8_Click()
ActiveCell.Rows.EntireRow.Delete shift:=xlUp
End Sub

en gros quand jappui ca supprime la ligne de la cellule selectionner!!
mais j'aimerais que ca fass mieu!je veux que quand j'appui sur le bouton ca mouvre une petite fenètre avec
'voulez-vous vraiment supprimer'
avec un bouton 'oui' et ca supprime et un bouton 'non' et ca annule laction!
merci d'avance

 

[dg62]

Bonsoir


Private Sub CommandButton8_Click()

rep=msgbox('Voulez-vous vraiment supprimer cette ligne',vbOkCancel)
if rep=1 then
ActiveCell.Rows.EntireRow.Delete shift:=xlUp
else
'on efface pas
endif
End Sub