bouton suppression

maTTTTTTTTTTrix · 22 Avril 2005

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 · 22 Avril 2005

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

bouton suppression

maTTTTTTTTTTrix

Guest

dg62

XLDnaute Barbatruc

Discussions similaires