VBA - Bouton insérer une ligne au format identique à la ligne 6

Bonjour Thierry36

Oui copier / Collage special format

Enregistreur de macro pour donner la syntaxe exacte

A+

Bonjour BrunoM45,

Voici un code qui fonctionne partiellement. Il manque la copie du cadre et je ne comprends pas pourquoi la cellule en dessous de la cellule copiée redevient blanche:

Sub BoutonInserer1LigneVideIdentiqueLigne6()
Application.EnableEvents = False
With ActiveCell
.Offset(1, 0).EntireRow.Resize(1).Insert Shift:=xlDown
Cells(6, 1).Copy: .Offset(1, 0).PasteSpecial Paste:=xlPasteFormats
.Offset(1, 0).RowHeight = Cells(6, 1).RowHeight
End With
Application.EnableEvents = True
End Sub

Meilleures salutations,

Thierry

Bonjour BrunoM45,

Voici le code que je cherchais:

Sub BoutonInserer1LigneVideIdentiqueLigne6()
    If ActiveCell.Row < 6 Then Exit Sub
    ActiveSheet.Unprotect Password:="."
    Application.EnableEvents = False
    With ActiveCell
        .Offset(1).EntireRow.Insert
        Rows(6).Copy
        .Offset(1).EntireRow.PasteSpecial Paste:=xlPasteFormats
        .Offset(1).RowHeight = Cells(6, 1).RowHeight
    End With
    Application.CutCopyMode = False
    Application.EnableEvents = True
    ActiveSheet.Protect Password:="."
End Sub

Sub BoutonSupprimerLignes()
    ActiveSheet.Unprotect Password:="."
    If MsgBox("Voulez-vous supprimer ces lignes ? ", vbYesNo) = vbYes Then
    Selection.EntireRow.Delete
    End If
    ActiveSheet.Protect Password:="."
End Sub

Merci pour votre aide!