Consever la ligne 1 de mes titres

Résolu

VDB.57 -
VDB.57 - 17 avril 2016 à 11:22

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.

Afficher la suite

A voir également:

Consever la ligne 1 de mes titres
Partage de photos en ligne - Guide
Aller à la ligne excel - Guide
Mètre en ligne - Guide
Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : - Guide
Formulaire en ligne de meta - Guide

2 réponses

Réponse 1 / 2

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

VDB.57

Bonjour Patrice,

Merci pour ta réponse qui me convient très bien.

Pierrot.

VDB.57

Merci, pour cette réactivité et cette efficacité.

Réponse 2 / 2

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

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

VDB.57

Bonjour et merci Frenchie83

Merci pour ta réponse qui me convient très bien.

Pierrot

VDB.57

Efficacité et réactivité sont au RDV.

Merci encore.

Discussions similaires

Ça veut dire quoi "adresse ligne 1" sur les formulaires ?

Que veut dire "correspondant occupé" lors d'un appel ?

Qu'est ce qu'une ligne d'adresse 1 paypal ??

Tous les paragraphes sont considérés comme des titres

Ligne d'adresse 1

Votre réponse

Discussions similaires