Macro copie partielle de ligne Excel Fermé

Question

Bonjour

Je veux par une macro inserer une ligne sous ma ligne active et y copier seulement les 6 premieres cellules de ma ligne active.

Cette macro insere une ligne et y copie la ligne active entierement alors que je ne veux que les 6 premieres cellules.

ActiveCell.Offset(1, 0).EntireRow.Insert
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row + 1).Select
    ActiveSheet.Paste

Cette macro insere une ligne et y copie la selection mais je suis obligé de selectionner mes 6 cellules.

ActiveCell.Offset(1, 0).EntireRow.Insert
    Selection.Copy
    Rows(ActiveCell.Row + 1).Select
    ActiveSheet.Paste

Merci pour votre aide.


Configuration: Windows XP / Internet Explorer 6.0

Polux31 · Answer

Bonjour,

Dim lig As Long

ActiveCell.Offset(1, 0).EntireRow.Insert
lig = ActiveCell.Row
Range("A" & lig & ":F" & lig).Copy Range("A" & lig + 1 & ":F" & lig + 1)


;o)

Macro copie partielle de ligne Excel

1 réponse

Discussions similaires