Consever la ligne 1 de mes titres Résolu

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

Newsletters