Problème avec mon code :inserer lignes avec format

[fenec]

Bonjour le forum

Besoin de votre aide afin de finaliser mon code

Je m’explique :

Comment dire à excel de copier la mise en forme non pas de la dernière ligne mais de l’avant dernière ?

Soit dans mon exemple joint non pas la ligne 14 mais la ligne 13

Cordialement

Fenec

 

[Fred0o]

Re : Problème avec mon code :inserer lignes avec format

Bonjour fenec,

Voici le code modifié à utiliser :

Private Sub CommandButton3_Click()
    Application.ScreenUpdating = False
    With ActiveCell
        .EntireRow.Insert xlShiftDown
        .EntireRow.Copy
        .Offset(-1).EntireRow.Copy Destination:=ActiveCell.EntireRow
        Application.CutCopyMode = False
        On Error Resume Next
        Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
    End With
    Application.ScreenUpdating = True
End Sub

A+

 

[frangy]

Re : Problème avec mon code :inserer lignes avec format

Bonjour,

Une variante avec recherche de l'avant dernière ligne renseignée

Sub Test()
Dim Plage As Range
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        Set Plage = .Range("B" & .Rows.Count).End(xlUp).Offset(-1, 0).EntireRow
        Plage.Copy
        Plage.Insert Shift:=xlDown
        Plage.ClearContents
        Application.CutCopyMode = False
    End With
    Application.ScreenUpdating = True
End Sub

A+

 

[fenec]

Re : Problème avec mon code :inserer lignes avec format

Re et bonjour FredOo ,Frangy

Merci pour votre rapidité vos solutions fonctionnent mis a part que mes formules dans les cellules vertes ne sont pas prises en comptes dans la ligne insérée
A+

 

[Si...]

Re : Problème avec mon code :inserer lignes avec format

salut

Si... ton bouton est sur la feuille et que tu veuilles éviter des messages d'erreur en cas d'appels successifs, essaie

Private Sub CommandButton3_Click()
  Dim P As Range
  Set P = Cells(Cells(Rows.Count, 2).End(xlUp).Row - 1, 2).Resize(1, 14)
  P.Copy
  P.Insert Shift:=xlDown
  On Error Resume Next 'insertions consécutives
  P.SpecialCells(xlCellTypeConstants).ClearContents
  On Error GoTo 0
  Application.CutCopyMode = False
  Rows(P.Row).RowHeight = 30 'hauteurs de lignes différentes
  Rows(P.Row + 1).RowHeight = 50
End Sub

 

[fenec]

Re : Problème avec mon code :inserer lignes avec format

Re,bonjour Si...

Viens de tester c'est nickel je test ce soir dans mon fichier et te tiens au courant en cas de problème

A+