Consever la ligne 1 de mes titres Résolu/Fermé

Question

Bonjour, 

Je me permet de vous joindre mon petit programme qui fonctionne.Il me permet d’effacer la dernière ligne de mon tableau.
Par contre je voudrais conserver la ligne N°1 de mes titres.
Le retraité que je suis vous remercie par avance pour l'aide que vous donnez à tous les intéressés comme moi.   


Private Sub CommandButton5_Click()
  Dim DernLigne As Long
DernLigne = Range("a" & Rows.Count + 1).End(xlUp).Row
Range("a" & DernLigne) = ""
    Range("b" & DernLigne) = ""
    Range("c" & DernLigne) = ""
    Range("d" & DernLigne) = ""
    Range("e" & DernLigne) = ""
    Range("f" & DernLigne) = ""
    Range("g" & DernLigne) = ""
    Range("h" & DernLigne) = ""
    Range("i" & DernLigne) = ""
    Range("l" & DernLigne) = ""
End Sub


Encore merci pour votre implication.

Patrice33740 · Answer

Bonjour,

Essaies ce code :
Private Sub CommandButton5_Click()
  With ActiveSheet
    With .Cells(.Rows.Count, "A").End(xlUp)
      If .Row = 1 Then Exit Sub
      .EntireRow.ClearContents
    End With
  End With
End Sub

Frenchie83 · Answer

Bonjour
Private Sub CommandButton5_Click()
    Dim DernLigne As Long
    DernLigne = Range("a" & Rows.Count).End(xlUp).Row
    If DernLigne <> 1 Then Range("A" & DernLigne & ":i" & DernLigne & ",L" & DernLigne).ClearContents
End Sub
Cdlt

Consever la ligne 1 de mes titres

2 réponses

Discussions similaires