supprimer lignes sauf la premiere protegé en lecture seul

[yakin78]

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 !!

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

 

[mapomme]

Re : supprimer lignes sauf la premiere protegé en lecture seul

Bonjour yakin78,

Essayez ce code:

Sub SuprimDerl_Click()
  If Range("A42").End(xlUp).Row > 1 Then
    Range("A42").End(xlUp).Resize(1, 4).ClearContents
  Else
    MsgBox "aucune ligne à supprimer"
  End If
End Sub

 

[yakin78]

Re : supprimer lignes sauf la premiere protegé en lecture seul

Bonjour Mapomme !!!

Merci pour la rapidité de reponse c'est nickel ca marche impec !!