copier coller 1 ligne avec XLDown

Question

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?

Le Pingou · Answer

Bonjour,
Essayer cette solution:
Sub test()deli = Cells(Rows.Count, 1).End(xlUp).RowRange("A" & 1 & ":A" & deli).Copy Destination:=Sheets("Source").Range("E2")End Sub

Yoyo01000 · Answer

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

Copier coller 1 ligne avec XLDown

2 réponses

Discussions similaires

Newsletters