Puis-je augmenter la vitesse de cette macro
sans changer d'ordi ? ;-)
Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Test_Vitesse()
Dim depart As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
depart = GetTickCount
Sheets.Add
With Range("A1:J10000")
.Formula = "=2*Row()*Column()+10"
.Value = .Value
End With
MsgBox (GetTickCount - depart) / 1000 & " seconde(s)"
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
cousinhub
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
Bonjour, change d'ordi -)))
chez moi, entre 0.573 et 0.583 secondes
Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro
sans changer d'ordi ? ;-)
Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Test_Vitesse()
Dim depart As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
depart = GetTickCount
Sheets.Add
With Range("A1:J10000")
.Formula = "=2*Row()*Column()+10"
.Value = .Value
End With
MsgBox (GetTickCount - depart) / 1000 & " seconde(s)"
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
garnote
Salutations,
OK d'abord ;-)
Serge
"cousinhub" a écrit dans le message de news:
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
Salutations,
OK d'abord ;-)
Serge
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news: On20jgoVHHA.528@TK2MSFTNGP03.phx.gbl...
Bonjour, change d'ordi -)))
chez moi, entre 0.573 et 0.583 secondes
Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro
sans changer d'ordi ? ;-)
Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Test_Vitesse()
Dim depart As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
depart = GetTickCount
Sheets.Add
With Range("A1:J10000")
.Formula = "=2*Row()*Column()+10"
.Value = .Value
End With
MsgBox (GetTickCount - depart) / 1000 & " seconde(s)"
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
Thierry Euzenot
Bonjour,
Sur mon portable entre 0,375 et 0.453 Ouf je suis rassuré sur les capacités de mon ordi qui semblait donner des signes de fatigue sur les formules nombreuses...
Thierry
P.S. : Change d'ordi ^_^
"cousinhub" a écrit dans le message de news:
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
Bonjour,
Sur mon portable entre 0,375 et 0.453
Ouf je suis rassuré sur les capacités de mon ordi qui semblait donner des
signes de fatigue sur les formules nombreuses...
Thierry
P.S. : Change d'ordi ^_^
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
On20jgoVHHA.528@TK2MSFTNGP03.phx.gbl...
Bonjour, change d'ordi -)))
chez moi, entre 0.573 et 0.583 secondes
Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro
sans changer d'ordi ? ;-)
Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Test_Vitesse()
Dim depart As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
depart = GetTickCount
Sheets.Add
With Range("A1:J10000")
.Formula = "=2*Row()*Column()+10"
.Value = .Value
End With
MsgBox (GetTickCount - depart) / 1000 & " seconde(s)"
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Sur mon portable entre 0,375 et 0.453 Ouf je suis rassuré sur les capacités de mon ordi qui semblait donner des signes de fatigue sur les formules nombreuses...
Thierry
P.S. : Change d'ordi ^_^
"cousinhub" a écrit dans le message de news:
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
JLuc
*Bonjour cousinhub*, Chez moi, 0,281 secondes ;-)
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour cousinhub*,
Chez moi, 0,281 secondes ;-)
Bonjour, change d'ordi -)))
chez moi, entre 0.573 et 0.583 secondes
Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro
sans changer d'ordi ? ;-)
Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Test_Vitesse()
Dim depart As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
depart = GetTickCount
Sheets.Add
With Range("A1:J10000")
.Formula = "=2*Row()*Column()+10"
.Value = .Value
End With
MsgBox (GetTickCount - depart) / 1000 & " seconde(s)"
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Bonjour, change d'ordi -))) chez moi, entre 0.573 et 0.583 secondes Bonne journée
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Francois L
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Bonsoir,
0,56 secondes sur un vieux P3 (complètement saturé) sous Me et XL2000 !
-- François L
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro
sans changer d'ordi ? ;-)
Temps d'exécution chez moi : 2,8 secondes.
Bonsoir,
0,56 secondes sur un vieux P3 (complètement saturé) sous Me et XL2000 !
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Bonsoir,
0,56 secondes sur un vieux P3 (complètement saturé) sous Me et XL2000 !
-- François L
Jacquouille
Bonjour Chez moi, 00:01:26 pour lire tous ces messages. Si on ajoute le temps de les rédiger, de les télécharger..... Cela fait un bon bout de temps. Allez, à la revoyure et bonne journée à tous et tousses.
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news: uw$w$
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub
Serge
Bonjour
Chez moi, 00:01:26 pour lire tous ces messages.
Si on ajoute le temps de les rédiger, de les télécharger.....
Cela fait un bon bout de temps.
Allez, à la revoyure et bonne journée à tous et tousses.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
uw$w$aoVHHA.496@TK2MSFTNGP06.phx.gbl...
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro
sans changer d'ordi ? ;-)
Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Test_Vitesse()
Dim depart As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
depart = GetTickCount
Sheets.Add
With Range("A1:J10000")
.Formula = "=2*Row()*Column()+10"
.Value = .Value
End With
MsgBox (GetTickCount - depart) / 1000 & " seconde(s)"
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Bonjour Chez moi, 00:01:26 pour lire tous ces messages. Si on ajoute le temps de les rédiger, de les télécharger..... Cela fait un bon bout de temps. Allez, à la revoyure et bonne journée à tous et tousses.
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"garnote" a écrit dans le message de news: uw$w$
Bonjour mes gaillards et gaillardes,
Puis-je augmenter la vitesse de cette macro sans changer d'ordi ? ;-) Temps d'exécution chez moi : 2,8 secondes.
Private Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Test_Vitesse() Dim depart As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual depart = GetTickCount Sheets.Add With Range("A1:J10000") .Formula = "=2*Row()*Column()+10" .Value = .Value End With MsgBox (GetTickCount - depart) / 1000 & " seconde(s)" Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub