macro pour calculer la vitesse d'execution d'une macro

Version imprimable

08/12/2007, 11h11
victorzecat

macro pour calculer la vitesse d'execution d'une macro

Je cherche à créer une macro permettant de calculer la vitesse d'execution d'une autre macro, ou bien d'une fonction excel (par exemple somme(si)

Etant debutant je ne sais pas par ou commencer... avez vous des idées?

Merci pour votre contribution.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Declare Function GetTickCount& Lib "kernel32" ()
 
Sub MesureDuTempsQuiPasse()
Dim Départ As Double, i As Long
    Départ = GetTickCount&
 
    'Pour simuler le code de ta macro
    For i = 1 To 100000
         DoEvents
    Next
 
    Durée = GetTickCount& - Départ
 
End sub

Résultat en millisecondes
A+

08/12/2007, 11h24
ucfoutu

Bonjour,

Si la durée d'exécution de ta macro est supérieure ou égale à 20 millisecondes, il te suffira d'utiliser la fonction Timer...

Une discussion à ce sijet a été ouverte hier et l'un des messages montre comment calculer une durée à l'aide de la fonction Timer.
08/12/2007, 12h32
ouskel'n'or

Citation:

Envoyé par ucfoutu

Si la durée d'exécution de ta macro est supérieure ou égale à 20 millisecondes, il te suffira d'utiliser la fonction Timer

Pourquoi ? Elle te plait pas ma solution ? :mouarf:
08/12/2007, 12h51
victorzecat

pour ma part les 2 solutions me plaisent...

@ucfoutu= peux tu me donner le lien de la discussion sur la fonction timer?

@ouskel'n'or= j'ai placé mon sub dans la formule de calcul de temps, de même j'ai placé la fonction dans une cellule de ma feuille; toutefois le résultat de cette dernière me renvoit un nombre à 9 chiffres (alors que mon code s'éxécute en moins d'1 seconde)... je ne comprend pas...

Ok. Alors ajoute ces lignes après la boucle

Code:

1
2
3
4
5
6
7
8
    arrivée = GetTickCount&
    Durée = arrivée - Départ
    MsgBox Durée
    mn = Int(Durée / 1000 / 60)
    sd = Int((Durée / 1000) - (mn * 60))
    ms = Durée - (sd * 1000) - (mn * 1000 * 60)
    tps = mn & ":" & sd & ":" & ms
    MsgBox tps

A+

08/12/2007, 12h59
fred65200

rebonjour victorzecat

pour répondre en lieu et place d'ucfoutu, suis ce lien.
Cordialement
08/12/2007, 13h10
ucfoutu

==>> Ousk : bien sûr que ta méthode me plait !!! Ta méthode, de surcroît, permet de ne pas tomber dans le piège du passage par Minuit... (j'essayais simplement de montrer que VB sait se défendre seul).

===>> fred95200 : merci (j'aurais toutefois personnellement laissé victorzecat apprendre à chercher un peu... les cailles ne doivent pas tomber toutes rôties du ciel ... mais tu es sympa -plus que moi -, c'est vrai)

Amitiés à ousk et à Fred, mais également à Victor..
08/12/2007, 13h24
victorzecat

Merci à tous pour vos réponses:

@ousk: ta macro fonctionne parfaitement
@fred: merci pour le lien et tes autres réponses
@ucfoutu: merci pour ta solution (ps: il est vrai que j'ai demandé l'adresse du lien par facilité, toutefois maintenant je suis sure de tomber sur la bonne discussion. Ce qui est vrai pour moi, sera aussi vrai pour ceux qui souhaitent approfondir ta solution).

Amitiés à tous
08/12/2007, 13h31
ucfoutu
Bon...

Alors un cadeau pour qui saura le prendre au vol et voir comment l'utiliser :
Code:

1 2 3 Dim toto As Double toto = Now MsgBox toto
hé ! hé !... et yen a plou de pwoblems avec minuit (pour les Machiavel et cie ... me dites pas qchui le seul, quand même...;))
08/12/2007, 14h34
kiki29

Jour Bon
Sans oublier L'api QueryPerformanceCounter pour des cas très particuliers et un peu extrêmes en termes de précision