Je déclenche une suite de macros quand l'horloge système passe à 00 seconde.
Je récupère l'heure de fin de ce traitement en affichant les centièmes de
secondes.
J'ai changé le format de la cellule en hh:mm:ss,00 là ou je récupère
time
Mais je récupère toujours 00 seconde et 00 centième.
00 seconde c'est plutôt bon, le traitement dure moins d'une seconde, mais 00
centième c'est pas possible.
Que dois je modifier pour attraper ces centièmes ou millièmes de secondes ?
Bonsour(®), Aussi étrange que cela paraisse il me semble que VBA ne sache passe écrire les centiemes alors que la meme fonction de feuille de calcul puisse le faire .... !!!!
je n'ai pas de reelle explication, mais si tu passes par des formules sur feuille de calcul voici une solution :
exemple : Sub twinley() [A3].FormulaLocal = "¢-A1" [B3].FormulaLocal = "²-B1" [A1:B3].NumberFormat = "hh:mm:ss.00" debut = Now() [A1] = Now() '---- on ecrit l'heure courante [B1].Formula = "=now()" '---on ecrit une formule [B1] = [B1] ' ---- on valorise la formule MsgBox "Vite stop !!!" [B2].Formula = "=now()" [A2] = Now() [B2] = [B2] MsgBox Format(Now() - debut, "hh:mm:ss.00") End Sub
une autre solution consisterait à utiliser l'API GetTickCount. voir sur le site de Frederic Sigonneau
@+
-----Message d'origine----- Bonjour à tous,
Je déclenche une suite de macros quand l'horloge système passe à 00 seconde.
Je récupère l'heure de fin de ce traitement en affichant les centièmes de
secondes.
J'ai changé le format de la cellule en hh:mm:ss,00 là ou je récupère
time
Mais je récupère toujours 00 seconde et 00 centième. 00 seconde c'est plutôt bon, le traitement dure moins d'une seconde, mais 00
centième c'est pas possible.
Que dois je modifier pour attraper ces centièmes ou millièmes de secondes ?
Merci pour votre aide
à+ twinley
.
Bonsour(®),
Aussi étrange que cela paraisse il me semble que VBA ne
sache passe écrire les centiemes
alors que la meme fonction de feuille de calcul puisse le
faire .... !!!!
je n'ai pas de reelle explication, mais si tu passes par
des formules sur feuille de calcul voici une solution :
exemple :
Sub twinley()
[A3].FormulaLocal = "=A2-A1"
[B3].FormulaLocal = "=B2-B1"
[A1:B3].NumberFormat = "hh:mm:ss.00"
debut = Now()
[A1] = Now() '---- on ecrit l'heure courante
[B1].Formula = "=now()" '---on ecrit une formule
[B1] = [B1] ' ---- on valorise la formule
MsgBox "Vite stop !!!"
[B2].Formula = "=now()"
[A2] = Now()
[B2] = [B2]
MsgBox Format(Now() - debut, "hh:mm:ss.00")
End Sub
une autre solution consisterait à utiliser l'API
GetTickCount.
voir sur le site de Frederic Sigonneau
@+
-----Message d'origine-----
Bonjour à tous,
Je déclenche une suite de macros quand l'horloge système
passe à 00 seconde.
Je récupère l'heure de fin de ce traitement en affichant
les centièmes de
secondes.
J'ai changé le format de la cellule en hh:mm:ss,00
là ou je récupère
time
Mais je récupère toujours 00 seconde et 00 centième.
00 seconde c'est plutôt bon, le traitement dure moins
d'une seconde, mais 00
centième c'est pas possible.
Que dois je modifier pour attraper ces centièmes ou
millièmes de secondes ?
Bonsour(®), Aussi étrange que cela paraisse il me semble que VBA ne sache passe écrire les centiemes alors que la meme fonction de feuille de calcul puisse le faire .... !!!!
je n'ai pas de reelle explication, mais si tu passes par des formules sur feuille de calcul voici une solution :
exemple : Sub twinley() [A3].FormulaLocal = "¢-A1" [B3].FormulaLocal = "²-B1" [A1:B3].NumberFormat = "hh:mm:ss.00" debut = Now() [A1] = Now() '---- on ecrit l'heure courante [B1].Formula = "=now()" '---on ecrit une formule [B1] = [B1] ' ---- on valorise la formule MsgBox "Vite stop !!!" [B2].Formula = "=now()" [A2] = Now() [B2] = [B2] MsgBox Format(Now() - debut, "hh:mm:ss.00") End Sub
une autre solution consisterait à utiliser l'API GetTickCount. voir sur le site de Frederic Sigonneau
@+
-----Message d'origine----- Bonjour à tous,
Je déclenche une suite de macros quand l'horloge système passe à 00 seconde.
Je récupère l'heure de fin de ce traitement en affichant les centièmes de
secondes.
J'ai changé le format de la cellule en hh:mm:ss,00 là ou je récupère
time
Mais je récupère toujours 00 seconde et 00 centième. 00 seconde c'est plutôt bon, le traitement dure moins d'une seconde, mais 00
centième c'est pas possible.
Que dois je modifier pour attraper ces centièmes ou millièmes de secondes ?
Merci pour votre aide
à+ twinley
.
twinley
Bonjour Modeste
Excellent ça affiche les centièmes, je vais pouvoir capturer ce que je veux. Merci pour ton aide. J'irai voir GetTickCount pour le plaisir mais ta sub fait l'affaire.
Bonne journée à+ twinley "Modeste" a écrit dans le message de news:058001c46e35$c83bc9a0$ Bonsour(®), Aussi étrange que cela paraisse il me semble que VBA ne sache passe écrire les centiemes alors que la meme fonction de feuille de calcul puisse le faire .... !!!!
je n'ai pas de reelle explication, mais si tu passes par des formules sur feuille de calcul voici une solution :
exemple : Sub twinley() [A3].FormulaLocal = "¢-A1" [B3].FormulaLocal = "²-B1" [A1:B3].NumberFormat = "hh:mm:ss.00" debut = Now() [A1] = Now() '---- on ecrit l'heure courante [B1].Formula = "=now()" '---on ecrit une formule [B1] = [B1] ' ---- on valorise la formule MsgBox "Vite stop !!!" [B2].Formula = "=now()" [A2] = Now() [B2] = [B2] MsgBox Format(Now() - debut, "hh:mm:ss.00") End Sub
une autre solution consisterait à utiliser l'API GetTickCount. voir sur le site de Frederic Sigonneau
@+
-----Message d'origine----- Bonjour à tous,
Je déclenche une suite de macros quand l'horloge système passe à 00 seconde.
Je récupère l'heure de fin de ce traitement en affichant les centièmes de
secondes.
J'ai changé le format de la cellule en hh:mm:ss,00 là ou je récupère
time
Mais je récupère toujours 00 seconde et 00 centième. 00 seconde c'est plutôt bon, le traitement dure moins d'une seconde, mais 00
centième c'est pas possible.
Que dois je modifier pour attraper ces centièmes ou millièmes de secondes ?
Merci pour votre aide
à+ twinley
.
Bonjour Modeste
Excellent ça affiche les centièmes, je vais pouvoir capturer ce que je veux.
Merci pour ton aide.
J'irai voir GetTickCount pour le plaisir mais ta sub fait l'affaire.
Bonne journée
à+
twinley
"Modeste" <Geedee@discussions.microsoft.com> a écrit dans le message de
news:058001c46e35$c83bc9a0$a601280a@phx.gbl...
Bonsour(®),
Aussi étrange que cela paraisse il me semble que VBA ne
sache passe écrire les centiemes
alors que la meme fonction de feuille de calcul puisse le
faire .... !!!!
je n'ai pas de reelle explication, mais si tu passes par
des formules sur feuille de calcul voici une solution :
exemple :
Sub twinley()
[A3].FormulaLocal = "¢-A1"
[B3].FormulaLocal = "²-B1"
[A1:B3].NumberFormat = "hh:mm:ss.00"
debut = Now()
[A1] = Now() '---- on ecrit l'heure courante
[B1].Formula = "=now()" '---on ecrit une formule
[B1] = [B1] ' ---- on valorise la formule
MsgBox "Vite stop !!!"
[B2].Formula = "=now()"
[A2] = Now()
[B2] = [B2]
MsgBox Format(Now() - debut, "hh:mm:ss.00")
End Sub
une autre solution consisterait à utiliser l'API
GetTickCount.
voir sur le site de Frederic Sigonneau
@+
-----Message d'origine-----
Bonjour à tous,
Je déclenche une suite de macros quand l'horloge système
passe à 00 seconde.
Je récupère l'heure de fin de ce traitement en affichant
les centièmes de
secondes.
J'ai changé le format de la cellule en hh:mm:ss,00
là ou je récupère
time
Mais je récupère toujours 00 seconde et 00 centième.
00 seconde c'est plutôt bon, le traitement dure moins
d'une seconde, mais 00
centième c'est pas possible.
Que dois je modifier pour attraper ces centièmes ou
millièmes de secondes ?
Excellent ça affiche les centièmes, je vais pouvoir capturer ce que je veux. Merci pour ton aide. J'irai voir GetTickCount pour le plaisir mais ta sub fait l'affaire.
Bonne journée à+ twinley "Modeste" a écrit dans le message de news:058001c46e35$c83bc9a0$ Bonsour(®), Aussi étrange que cela paraisse il me semble que VBA ne sache passe écrire les centiemes alors que la meme fonction de feuille de calcul puisse le faire .... !!!!
je n'ai pas de reelle explication, mais si tu passes par des formules sur feuille de calcul voici une solution :
exemple : Sub twinley() [A3].FormulaLocal = "¢-A1" [B3].FormulaLocal = "²-B1" [A1:B3].NumberFormat = "hh:mm:ss.00" debut = Now() [A1] = Now() '---- on ecrit l'heure courante [B1].Formula = "=now()" '---on ecrit une formule [B1] = [B1] ' ---- on valorise la formule MsgBox "Vite stop !!!" [B2].Formula = "=now()" [A2] = Now() [B2] = [B2] MsgBox Format(Now() - debut, "hh:mm:ss.00") End Sub
une autre solution consisterait à utiliser l'API GetTickCount. voir sur le site de Frederic Sigonneau
@+
-----Message d'origine----- Bonjour à tous,
Je déclenche une suite de macros quand l'horloge système passe à 00 seconde.
Je récupère l'heure de fin de ce traitement en affichant les centièmes de
secondes.
J'ai changé le format de la cellule en hh:mm:ss,00 là ou je récupère
time
Mais je récupère toujours 00 seconde et 00 centième. 00 seconde c'est plutôt bon, le traitement dure moins d'une seconde, mais 00
centième c'est pas possible.
Que dois je modifier pour attraper ces centièmes ou millièmes de secondes ?
