Copier coller 1 ligne avec XLDown

Fermé
niouniou - 26 oct. 2021 à 16:20
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 - 26 oct. 2021 à 17:21
bonjour, j'ai fait une macro qui copie tout une colonne au nombre de lignes aléatoire dans une autre feuille qui fonctionne parfaitement sauf quand j'ai une seule ligne.
voici la partie de la macro qui bug avec une ligne:
Sheets("Feuil1"). Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Source").Select
Range("E2").Select
ActiveSheet.Paste (BUG)

Quelqu'un aurait il une idée svp?
A voir également:

2 réponses

Le Pingou Messages postés 12241 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 février 2025 1 458
26 oct. 2021 à 17:17
Bonjour,
Essayer cette solution:
Sub test()
deli = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & 1 & ":A" & deli).Copy Destination:=Sheets("Source").Range("E2")
End Sub

0
Yoyo01000 Messages postés 1639 Date d'inscription samedi 2 février 2019 Statut Membre Dernière intervention 7 mars 2022 167
26 oct. 2021 à 17:21
Bonjour,

essayez avec ceci :
Sheets("Feuil1").Select
Range("A1").CurrentRegion.Copy
Sheets("Source").Select
Range("E2").Select
ActiveSheet.Paste

0

Discussions similaires