View Single Post
 
Old 03-30-2022, 10:46 AM
cheickna cheickna is offline Windows 10 Office 2021
Novice
 
Join Date: Mar 2022
Posts: 1
cheickna is on a distinguished road
Default Problem with ActiveSheet.Paste function

Hello All,

I used for a long time a small code into a worksheet to avoid doing manual Copy/Paste.
Since 2019 this code worked well until yesterday. This is te part of my code where the problem happend.
Code:
            If ind > 5 Then 'Pour éviter de copier l'entête du tableau
                splagePrec = "A" + Trim(CStr(ind - 1)) & ":M" & Trim(CStr(ind - 1))
                Range(splagePrec).Select
                Selection.Copy
                splage = "A" + Trim(CStr(ind))
                Range(splage).Select
                ActiveSheet.Paste
            End If
Each part of this code run correctly until the instruction ActiveSheet.Paste.
It can take 15 min to execute this simple line.
I have tested on Windows 11/Excel 2019 PC and on Windows 10/Excel 2016 PC. the result is similar.
I don't understand why this problem start now
thank you for any help
Reply With Quote