XL 2010 Insertion et Copier/coller formule ligne précédente

[gabo29]

Bonjour,

Je cherche un code qui me permettrait à partir d'un bouton de commande de :
- Insérer une nouvelle ligne à partir de la première ligne vide
- Copier la formule de la ligne précédente,
- Coller la formule dans la ligne insérée,
- copier/coller spécial valeur de la ligne précédente

J'ai essayé le code suivant mais il insère entre deux ligne et non pas sur la suivante.

Sub InsèreCopieLigne()

ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

Je joins un fichier excel avec un exemple

Merci d'avance,
Cdt,
Gabriel

 

[vgendron]

Hello

avec juste une ligne de code

Sub InsèreCopieLigne()
Range("A" & Rows.Count).End(xlUp).Resize(2, 6).FillDown
End Sub

 

[gabo29]

Merci
Comment faire pour appliquer un copier/coller spéciale valeur sur ligne précédente qui vient d'être copié ?

 

[vgendron]

Pas sur d'avoir compris..
mais avec l'enregistreur de macro tu peux facilement trouver

Sub InsèreCopieLigne()
Range("A" & Rows.Count).End(xlUp).Resize(2, 6).FillDown

Range("A" & Rows.Count).End(xlUp).Offset(-1, 0).Resize(1, 6).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[gabo29]

Merci, ça répond à ma demande