A
aurelie
Guest
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]
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]