S
steve
Guest
comment augmenter la vitesse de cette macro,il faut peut etre eviter que excel calcul. la feuille temoin fait 500k0.
merci d'avance
Sheets("temoin").Select
Cells.Select
Selection.Copy
Sheets("Feuil34").Select
ActiveSheet.Paste
Sheets("Feuil33").Select
ActiveSheet.Paste
Sheets("Feuil32").Select
ActiveSheet.Paste
Sheets("Feuil31").Select
ActiveSheet.Paste
Sheets("Feuil30").Select
ActiveSheet.Paste
Sheets("Feuil29").Select
ActiveSheet.Paste
Sheets("Feuil28").Select
ActiveSheet.Paste
Sheets("Feuil27").Select
ActiveSheet.Paste
Sheets("Feuil26").Select
ActiveSheet.Paste
Sheets("Feuil25").Select
ActiveSheet.Paste
Sheets("Feuil24").Select
ActiveSheet.Paste
Sheets("Feuil23").Select
ActiveSheet.Paste
Sheets("Feuil22").Select
ActiveSheet.Paste
Sheets("Feuil21").Select
ActiveSheet.Paste
Sheets("Feuil20").Select
ActiveSheet.Paste
Sheets("Feuil19").Select
ActiveSheet.Paste
Sheets("Feuil18").Select
ActiveSheet.Paste
Sheets("Feuil17").Select
ActiveSheet.Paste
Sheets("Feuil16").Select
ActiveSheet.Paste
Sheets("Feuil15").Select
ActiveSheet.Paste
Sheets("Feuil14").Select
ActiveSheet.Paste
Sheets("Feuil13").Select
ActiveSheet.Paste
Sheets("Feuil12").Select
ActiveSheet.Paste
Sheets("Feuil11").Select
ActiveSheet.Paste
Sheets("Feuil10").Select
ActiveSheet.Paste
Sheets("Feuil9").Select
ActiveSheet.Paste
Sheets("Feuil8").Select
ActiveSheet.Paste
Sheets("Feuil7").Select
ActiveSheet.Paste
Sheets("Feuil6").Select
ActiveSheet.Paste
Sheets("Feuil5").Select
ActiveSheet.Paste
Sheets("Feuil4").Select
ActiveSheet.Paste
Sheets("Feuil3").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
End Sub
merci d'avance
Sheets("temoin").Select
Cells.Select
Selection.Copy
Sheets("Feuil34").Select
ActiveSheet.Paste
Sheets("Feuil33").Select
ActiveSheet.Paste
Sheets("Feuil32").Select
ActiveSheet.Paste
Sheets("Feuil31").Select
ActiveSheet.Paste
Sheets("Feuil30").Select
ActiveSheet.Paste
Sheets("Feuil29").Select
ActiveSheet.Paste
Sheets("Feuil28").Select
ActiveSheet.Paste
Sheets("Feuil27").Select
ActiveSheet.Paste
Sheets("Feuil26").Select
ActiveSheet.Paste
Sheets("Feuil25").Select
ActiveSheet.Paste
Sheets("Feuil24").Select
ActiveSheet.Paste
Sheets("Feuil23").Select
ActiveSheet.Paste
Sheets("Feuil22").Select
ActiveSheet.Paste
Sheets("Feuil21").Select
ActiveSheet.Paste
Sheets("Feuil20").Select
ActiveSheet.Paste
Sheets("Feuil19").Select
ActiveSheet.Paste
Sheets("Feuil18").Select
ActiveSheet.Paste
Sheets("Feuil17").Select
ActiveSheet.Paste
Sheets("Feuil16").Select
ActiveSheet.Paste
Sheets("Feuil15").Select
ActiveSheet.Paste
Sheets("Feuil14").Select
ActiveSheet.Paste
Sheets("Feuil13").Select
ActiveSheet.Paste
Sheets("Feuil12").Select
ActiveSheet.Paste
Sheets("Feuil11").Select
ActiveSheet.Paste
Sheets("Feuil10").Select
ActiveSheet.Paste
Sheets("Feuil9").Select
ActiveSheet.Paste
Sheets("Feuil8").Select
ActiveSheet.Paste
Sheets("Feuil7").Select
ActiveSheet.Paste
Sheets("Feuil6").Select
ActiveSheet.Paste
Sheets("Feuil5").Select
ActiveSheet.Paste
Sheets("Feuil4").Select
ActiveSheet.Paste
Sheets("Feuil3").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
End Sub