Copier coller 1 ligne avec XLDown
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?
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?
2 réponses
-
Bonjour,
essayez avec ceci :Sheets("Feuil1").Select Range("A1").CurrentRegion.Copy Sheets("Source").Select Range("E2").Select ActiveSheet.Paste
-
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
