Copier coller 1 ligne avec XLDown
niouniou
-
Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention -
Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention -
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,
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
-
Bonjour,
essayez avec ceci :Sheets("Feuil1").Select Range("A1").CurrentRegion.Copy Sheets("Source").Select Range("E2").Select ActiveSheet.Paste
