Problem with ActiveSheet.Paste function

p45cal · #2 03-30-2022, 02:47 PM

A guess:
Either you're copying some formulae which are complex or refer to entire rows/columns
and/or the cells you're changing are the precedents to many and/or complex formulae (possibly also involving entire columns).
So the time taken may be the recalculation time. Do you see evidence of calculation taking place on the status bar at the bottom of the sheet? Changing calculation to manual may not speed things up but it's worth a try to see if it makes a difference.

ps. your code could probably be shortened to:

Code:

If ind > 5 Then    'Pour éviter de copier l'entête du tableau
  Range("A" & ind - 1 & ":M" & ind - 1).Copy Range("A" & ind)
End If

or

Code:

If ind > 5 Then    'Pour éviter de copier l'entête du tableau
  Cells(ind - 1, "A").Resize(, 13).Copy Cells(ind, "A")
End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy and paste function for Command Button	Will267	Word VBA	1	05-12-2021 02:31 PM
Replicate the copy/paste function, without involving the clipboard	alex100	Word VBA	8	11-09-2020 08:19 AM
Problem with Value function	misokol	Excel	3	01-11-2017 08:59 AM
Problem with function	PRA007	Word VBA	2	01-13-2016 01:11 AM
New mail - Paste function	craigfer	Outlook	0	05-27-2015 08:32 AM