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
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