Code verification (ie - simplify)

[Berean50]

Hi,

Can someone verify this code of mine so as to:

1 - Simplify it so that I need not to repeat this for all the twelve months of the year

2 - Copy and insert from Worksheet "Sheet1" to sheet "Mai", "Juin" and subsequent months in between rows B6 and before the last non empty row of all these month sheets

Please Login or Register  to view this content.

Any help would be appreciated.

[xladept]

What is selected at the start of the run?

[mgs73]

I'm not entirely sure what you intend to do. Your 'Selection.Insert' lines, while seemingly associated with the month sheets actually inserts rows on Sheet1 (actually, as xladept pointed out, who knows what might be selected), as that is what is selected. As a rule, you should avoid selecting anything in VBA as it is rarely necessary, and it really slows things down.

As I said, I'm not clear on what you are trying to do, but I hope the below code makes sense to you, and you can modify it to suit you if it doesn't quite do what you want. It goes through every sheet in the workbook, and sets the specified range in each sheet (offset by three rows) equal to that range in Sheet1.

Please Login or Register  to view this content.

[Berean50]

msg73

Thank you for your response. I have evolved from my original post to the following code where I am using an array now.
However I am still having issues. One problem I have is that I want to copy from Sheet1 the data that is located in column B3 to the last non empty cell of the column and paste it into the "Mai", "Juin", "Bilan" in between row B6 and the last non empty row of all these monthly worksheets.
The second issue is that the last row of the monthly sheets contain formulas. I want to insert a new row above the last row of all these sheets. In this new row I need to copy the format and formulas above the newly inserted row and then paste this into the new row.

I would included my workbook but it is too large for an upload even if I simplify it. If I can send it to you or make it accessible via Dropbox or another similar tool, I believe that this would help both you and I in understanding and explaining these issues.
Below is the code:

Please Login or Register  to view this content.