Temps de calcul

[pascal82]

Bonjour,
J’aimerai qu’un compteur comptabilise le temps de calcul de la macro. J’ai essayé mais le résultat n’est pas terrible. !!!
Je joins le code

Merci par avance


Sub Macrotest2()
Range("B1").Value = "Je bosse"
Range("b1").Font.Color = vbRed
Range("c2").Value = Hour(Time)
Range("d2").Value = Minute(Time)
Range("e2").Value = Second(Time)

Dim X As Long
For X = 1 To 60
Range("M17").FormulaR1C1 = "=cos(RC[-11]/R" & X & "C24)+SIN(RC[-11]/R" & X & "C25)"
Range("M17").AutoFill Destination:=Range("M17:V17"), Type:=xlFillDefault
Range("M17:V17").AutoFill Destination:=Range("M17:V106"), Type:=xlFillDefault

Range("M12:V12").Copy
Range("AA" & X).PasteSpecial Paste:=xlPasteValues
Next X

Range("c3").Value = Hour(Time)
Range("d3").Value = Minute(Time)
Range("e3").Value = Second(Time)
Range("b1").Font.Color = vbGreen
Range("b1").Value = "J'ai fini !"

End Sub[/I][/COLOR]

 

[Efgé]

Re : Temps de calcul

Bonjour pascal82
Une proposition:

Sub Macrotest2()
Deb = Timer
Dim X As Long
For X = 1 To 60
Range("M17").FormulaR1C1 = "=cos(RC[-11]/R" & X & "C24)+SIN(RC[-11]/R" & X & "C25)"
Range("M17").AutoFill Destination:=Range("M17:V17"), Type:=xlFillDefault
Range("M17:V17").AutoFill Destination:=Range("M17:V106"), Type:=xlFillDefault
Range("M12:V12").Copy
Range("AA" & X).PasteSpecial Paste:=xlPasteValues
Next X
MsgBox "J'ai bossé " & Timer - Deb & " seconde"
End Sub

Cordialement

 

[pascal82]

Re : Temps de calcul

Bonjour Efgé,

Le code fonctionne trés bien.
Merci encore pour la rapidité et l'efficacité de ta réponse.

Cordialement