Code pour ne pas supprimer une ligne

[maric]

Hello,

J'ai fait un bouton supprimer où j'ai mis le code suivant derrière le bouton au click

VerrouillageSaisieTravaux
Sheets("Travaux").unprotect
ligne = activecell.row
row(ligne & ":" & ligne).select
selection.delete shift:=xlup
if ligne >2 then ligne = ligne -1
activesheet.protect

Ce qui se passe s'il n'y a pas d'enregistrement, c'est que la ligne d'entête se supprime

Qui détient la clé pour que la suppression n'efface pas les entêtes ?

Merci de votre aide

Salutations A+

 

[@Christophe@]

Bonjour Maric

C'est très simple ton problème

Utilise le code suivant:

Private Sub CommandButton1_Click()
If ActiveCell.Row = 1 Or ActiveCell.Row = 2 Then Exit Sub
ActiveCell.EntireRow.Delete
End Sub


Je le dis dans mon exemple que si la ligne de ma cellule active est 1 ou 2 qu'il termine la macro, si different de 1 ou 2 alors il supprime la ligne active complement.

J'espère que cela correspont a tes attentes.

@Christophe@