Macro excel copier coller (ligne variable) [Résolu/Fermé]

Signaler
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013
-
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013
-
Bonjour,

j'ai trouvé une macro qui fonctionne à merveille pour copier coller mais hélas ne fonctionne que pour une petite plage de cellule ....

vue le nbr de cellule que j'ai excel bug systématiquement

j'ai trouvé ce code, essayé de le comprendre mais sans succès ma plage de cellule n'est pas copié collé ...

Sub copier()
Dim Nb_Lignes1 As Long

Nb_Lignes1 = Range("A1").End(xlUp).Row

Range("A67", "A" & Nb_Lignes1).Copy


ActiveSheet.Paste


End Sub

4 réponses

Messages postés
9559
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 septembre 2020
1 899
on y voit plus clair

1. les constantes sont à adapter selon ton fichier
2. lifin est la dernière ligne non vide de la colonne A

Const nomFO = "Feuil1"      ' nom de la feuille Origine
Const nomFD = "Feuil2"      ' nom de la feuille Destination
Const CellD = "A5"          ' cellule Destination

Sub copier()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Sheets(nomFO).Range("A67:E" & lifin).Copy Sheets(nomFD).Range(CellD)
End Sub

bonne suite
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60926 internautes nous ont dit merci ce mois-ci

Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013

parfait merci bcp ! j'ai bcp appris grâce à vous merci merci !!!!
Messages postés
9559
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 septembre 2020
1 899
bonjour

pour copier la plage "A67:Alifin" sur la feuille active à partir de la cellule B2

Const cell = "B2"

Sub copier()
Dim lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
Range("A67:A" & lifin).Copy ActiveSheet.Range(cell)
End Sub


bonne suite
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013

ma plage de cellule est de A67 : E 28720 (ou E 28721 ... ça varie)
je suis perdue dsl j'ai du mal à comprendre le const cell ?
Messages postés
9559
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 septembre 2020
1 899
re

j'ai compris que tu veux
1. copier la plage qui va de A67 à la dernière cellule de la colonne A (ligne lifin)
2. où ??? comme tu ne précises pas, j'ai opté pour envoyer cette copie à partir de la cellule B2 de la feuille active (on peut bien sur changer cette cellule, et même la feuille de destination)

si tu as voulu dire autre chose, précises ta demande.

bonne suite
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013

en effet je me suis très mal exprimée, ma plage de cellule est A67 : E 28720 (la dernière ligne pouvant être 28721, 28722 ...)
je dois copier cette plage de cellule dans la feuille 2 dans la cellule A5
pour moi le plus dur est le copier coller
Messages postés
9559
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 septembre 2020
1 899
peux tu mettre le problème à Résolu (en haut de ton premier message)

bon après midi
Messages postés
54
Date d'inscription
mardi 8 mai 2012
Statut
Membre
Dernière intervention
3 mars 2013

merci merci merci