Macro copie partielle de ligne Excel

Fermé

redernoz - 5 avril 2010 à 02:07
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 5 avril 2010 à 08:40

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:

Macro copie partielle de ligne Excel
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Copie cachée - Guide
Site de vente en ligne particulier - Guide

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
5 avril 2010 à 08:40

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)

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

[référencement] Ne pas être référencé

Discussions similaires

Newsletters