Macro copie partielle de ligne Excel

redernoz -  
Polux31 Messages postés 7219 Statut Membre -
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.


A voir également:

1 réponse

Réponse 1 / 1
Polux31 Messages postés 7219 Statut Membre 1 204
 
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)
0