Effacer le contenu de la dernière ligne sans effacer une formule

Moniato · 26 Janvier 2019

Bonjour à tous je n'arrive pas à trouver un code pour un CommandButton_Click() dans userform, qui puisse effacer le contenu de ma dernière ligne sans m'effacer la formule contenu dans la dernière cellule de cette ligne colonne E.

Voici ce qui fonctionne mais qui m'efface tout formule compris.

Private Sub CommandButton_Click()
Application.ScreenUpdating = False
Dim derligne As Integer
If MsgBox("confirmez-vous la suppression de la derniere ligne?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("VDD").Range("A456541").End(xlUp).Row + 1#
derli = Sheets("VDD").Range("A" & Rows.Count).End(xlUp).Row
Sheets("VDD").Cells(derli, 1).EntireRow.ClearContents

End If

End Sub

Si quelqu'un pourrait m'aider ce serait vraiment sympa.
Merci.

mapomme · 26 Janvier 2019

Bonsoir @Moniato ,

Essayez:

VB:

   With Sheets("VDD")
      .Range(.Cells(derli, "a"), .Cells(derli, "d")).ClearContents
      .Range(.Cells(derli, "f"), .Cells(derli, Rows.Columns.Count)).ClearContents
   End With

Moniato · 26 Janvier 2019

Bonsoir mapomme,

Merci pour votre réponse rapide j'ai placé votre code malheureusement il plante voir photo.
Je continue à chercher.

Dranreb · 26 Janvier 2019

Bonsoir.
Ça plante forcément puisque vous avez supprimé toutes les instruction devant qui préparaient le terrain !
votre Sheets("VDD").Cells(derli, 1).EntireRow.ClearContents, vous pouvez aussi la remplacer par

VB:

Sheets("VDD").[A:D].Rows(derli).ClearContents

Moniato · 26 Janvier 2019

Super !!!
Ça fonctionne un grand merci à vous pour votre aide.
Ce forum est génial et est une vraie mine d'or.
Merci.

Effacer le contenu de la dernière ligne sans effacer une formule

Moniato

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Moniato

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Moniato

XLDnaute Nouveau

Discussions similaires