alleger code

[aurelie]

bonsoir a tous

est possible d'allegé ce code,cijoint un extrait de mon application pour plus de facilité de compréhension
merci à tous

Macro1 Macro
' Macro enregistrée le 03/02/2006
'

Range('A4:E122').Copy

Sheets('Feuil2').Select
Range('A4').Select
ActiveSheet.Paste
Sheets('Feuil1').Select

Range('A4').Copy
Range('A5').Select
ActiveSheet.Paste

Range('A6').Copy
Range('A7').Select
ActiveSheet.Paste

Range('A8').Copy
Range('A9').Select
ActiveSheet.Paste

Range('A10').Copy
Range('A11').Select
ActiveSheet.Paste

Range('A12').Copy
Range('A13').Select
ActiveSheet.Paste

Range('A14').Copy
Range('A15').Select
ActiveSheet.Paste

merci a tous et bon week end [file name=Classeur2_20060203205131.zip size=10917]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060203205131.zip[/file]

 

[justine]

bonsoir le forum, chere aurelie

Range('A4:E122').Copy

Sheets('Feuil2').Select
Range('A4').Select
ActiveSheet.Paste
Sheets('Feuil1').Select

for i = 4 to 122 step 2
range('a' & i+1)=range('a' & i)
next

 

[justine]

bonsoir le forum, chere aurelie

Range('A4:E122').Copy

Sheets('Feuil2').Select
Range('A4').Select
ActiveSheet.Paste
Sheets('Feuil1').Select

for i = 4 to 122 step 2
range('a' & i+1)=range('a' & i)
next

 

[justine]

bonsoir le forum, chere aurelie

Range('A4:E122').Copy

Sheets('Feuil2').Select
Range('A4').Select
ActiveSheet.Paste
Sheets('Feuil1').Select

for i = 4 to 122 step 2
range('a' & i+1)=range('a' & i)
next

 

[aurelie]

Merci beaucoup JUSTINE
Bon weekend AURELIE