vitesse macro

[steve]

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

 

[Zon]

Bonsoir steve,



tu vas trouver la solution sur ce Fil



A+++

 

[Zon]

Re

Voilà le code,

En fait ce que tu fais c'est un copie de feuille dans plusieurs, donc tu supprimes tes feuilles 11 à 35 pour que le code suivant puisse fonctionner..

Sub copie()
Application.ScreenUpdating=False 'désavtive mise à jour écran
Dim i As Integer

For i = 11 To 35
Sheets("feuil1").Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = "Feuil" & i
End With
Next i
Application.CutCopyMode = False 'vide le presse papier
Application.ScreenUpdating =true
End Sub


A++++

 

[steve]

merci zon

j espere que cela va me convenir

 

[eric]

Essaie ce code :

Sheets("temoin").Select
Cells.Select
Selection.Copy

for i=11 to 34 'ou for i=11 to sheets.count si le nombre de feuille est variable

Sheets("Feuil" & i).Select
ActiveSheet.Paste
next i

Application.CutCopyMode = False