jrivet
Messages postés7393Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 17 oct. 2006 à 09:03
Salut,
Pour commencer place ceci dans le code de ThisWorkBook:
Private Sub Workbook_Open()
'En plus de sa fonction habituel, l'appui sur
'Suppr appellera DeleteEntireLine
Call Application.OnKey("{DEL}", "DeleteEntireLine")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Rend a suppr sa fonction habituel
Call Application.OnKey("{DEL}")
End Sub
Puis DANS UN MODULE
Public Sub DeleteEntireLine()
With ActiveSheet.Rows(ActiveCell.Row & ":" & ActiveCell.Row)
.ClearContents
.Interior.ColorIndex = xlNone
End With
End Sub
Voila qui devrait faire a peut pres ce que tu souhaitais.