Copier une plage de cellules d'une feuille à une autre

[Résolu/Fermé]
Signaler
-
 tartempion -
Bonjour,

Je cherche à copier une plage de données d'une feuil2 à une feuil1 d'un classeur, sachant que la plage est de longueur(lignes) variable.
je veux aussi que les données collées dans la feuil1 se mettent les unes à la suite des autres.
J'utilise le code suivant, mais il ne marche pas et je ne comprends pas pourquoi?

Sub copier()

Worksheets("Feuil2").Range("a2").Select
Sheets("Feuil2").Range("a2", ActiveCell.End(xlDown).End(xlToRight)).Copy _
Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End Sub



2 réponses

Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
663
Bonjour,

cet exemple copie la plage A1:F16 de la feuille1 dans la feuille2 en A1.

A adapter

Sheets("Feuil1").Range("A1:F16").Copy Sheets("Feuil2").Range("A1")

Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
154
Bonjour Tartempion, bonjour le forum,

Peut-être comme ça :

Sheets("Feuil2").Range("A2").CurrentRegion.Copy Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Merci les gars pour votre aide,
En fait je viens de trouver le problème, ma sélection avait déjà le nom d'une plage, il fallait donc que je fasse un collage spécial pour ne conserver que les valeurs:

Sheets("Feuil2").Range("a2", ActiveCell.End(xlDown).End(xlToRight)).Copy
Sheets("Feuil1")..Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Selection.Pastespecial Paste:=xlPasteValues

Merci encore pour votre aide