Bonjour à tous
j'ai un probleme avec un tableau , ce code me permet de supprimer la derniere ligne
avec un bouton ,seulement la ligne 1 est protegé en lecture seul et un message de débogage apparait
j'aimerai qu'arrivé à la ligne 1
celle-ci ne soit pas supprimé et un MsgBox affiche "aucune ligne à supprimer"
voir fichier joint
Merci pour toute aide !!
j'ai un probleme avec un tableau , ce code me permet de supprimer la derniere ligne
avec un bouton ,seulement la ligne 1 est protegé en lecture seul et un message de débogage apparait
j'aimerai qu'arrivé à la ligne 1
celle-ci ne soit pas supprimé et un MsgBox affiche "aucune ligne à supprimer"
voir fichier joint
Merci pour toute aide !!
Code:
Private Sub SuprimDerl_Click()
Range("A42").End(xlUp).Offset(0, 0).Select
ActiveCell.ClearContents
ActiveCell.Offset(0, 1).ClearContents
ActiveCell.Offset(0, 2).ClearContents
ActiveCell.Offset(0, 3).ClearContents
Application.CutCopyMode = False
End Sub