VBA inérer ligne avec cellule verrouillée

[Regueiro]

Bonsoir à tous j'aimerais créer une macro
pour insérer une ligne avec la copie complète de la ligne supérieure
par rapport à ma position actuelle.
Petite complication les cellules son verrouillées

Merci

 

[Banzai64]

Re : VBA inérer ligne avec cellule verrouillée

Bonjour

J' ai juste modifié ta macro
IL y a mieux je pense

Sub INSERION()
'
' INSERION Macro
  ActiveSheet.Unprotect
  ActiveCell.Offset(-1, 0).EntireRow.Copy
  Rows(ActiveCell.Row).Insert Shift:=xlDown
  On Error Resume Next
  Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants).ClearContents
  ActiveSheet.Protect
  'Application.CutCopyMode = False
End Sub

 

[Regueiro]

Re : VBA inérer ligne avec cellule verrouillée

Je te remercie c'est exactement ça.
Bonne soirée