Compter une boucle
Résolu
etoumat
Messages postés
54
Date d'inscription
vendredi 2 février 2007
Statut
Membre
Dernière intervention
5 juillet 2007
-
5 mars 2007 à 16:18
etoumat Messages postés 54 Date d'inscription vendredi 2 février 2007 Statut Membre Dernière intervention 5 juillet 2007 - 5 mars 2007 à 17:07
etoumat Messages postés 54 Date d'inscription vendredi 2 février 2007 Statut Membre Dernière intervention 5 juillet 2007 - 5 mars 2007 à 17:07
3 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
5 mars 2007 à 16:29
5 mars 2007 à 16:29
Salut,
je ne sais pas si cela peut t'aider mais cela te montrera au moins l'idée.
Dim Deb As Double
Dim Fin As Double
Dim i As Long
Deb = Timer
For i = 1 To 15000
DoEvents
Range("A" & i).Select
Next
Fin = Timer
MsgBox Format((Fin - Deb), "#.000"), ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
je ne sais pas si cela peut t'aider mais cela te montrera au moins l'idée.
Dim Deb As Double
Dim Fin As Double
Dim i As Long
Deb = Timer
For i = 1 To 15000
DoEvents
Range("A" & i).Select
Next
Fin = Timer
MsgBox Format((Fin - Deb), "#.000"), ----
[code.aspx?ID=41455 By Renfield]
@+: Ju£i?n
Pensez: Réponse acceptée
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
5 mars 2007 à 16:39
5 mars 2007 à 16:39
A preciser tout de même que la fonction Timer étant basée sur l'horloge "horaire" (celle qui affiche l'heure) est précise à 18.2ms près.
Pour une prcision à la ms il faut passer par l'api windows GetTickCount.
Pour etre encore plus precis, il faut utiliser QueryPerformanceCounter, la precision dépend de la machine est est basée sur des conteurs hyperperformants implantés vraisemblablement dans les chipsets. Malheureusement cette fonction n'est pas disponible sur toutes les machines.
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Pour une prcision à la ms il faut passer par l'api windows GetTickCount.
Pour etre encore plus precis, il faut utiliser QueryPerformanceCounter, la precision dépend de la machine est est basée sur des conteurs hyperperformants implantés vraisemblablement dans les chipsets. Malheureusement cette fonction n'est pas disponible sur toutes les machines.
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
etoumat
Messages postés
54
Date d'inscription
vendredi 2 février 2007
Statut
Membre
Dernière intervention
5 juillet 2007
5 mars 2007 à 17:07
5 mars 2007 à 17:07
Merci beaucoup
