Bonjour
Afin de mesurer le temps d'exécution, je fais
A1=now en début de macro et A2=now en fin.
En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et
sec. Comment puis-je ajouter les centièmes de seconde, svp en A3?
Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr,
min, sec et centièmes de seconde?
Merci et bonne fin de WE
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
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
DanielCo
Bonjour, Utilise la fonction "Timer". Daniel
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
Bonjour,
Utilise la fonction "Timer".
Daniel
Bonjour
Afin de mesurer le temps d'exécution, je fais
A1=now en début de macro et A2=now en fin.
En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et
sec. Comment puis-je ajouter les centièmes de seconde, svp en A3?
Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min,
sec et centièmes de seconde?
Merci et bonne fin de WE
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
Jacky
Bonsoir,
Vba (xl 2003) ne sait pas afficher les centièmes de seconde il faut passer par une formule de cellule. Contournement comme ceci '--------------- Sub jj() [a1:a3].ClearContents [a1:a3].NumberFormat = "hh:mm:ss.00" [a1].Formula = "=now()": [a1] = [a1] For i = 1 To 100000000: Next ' a remplacer par la macro existante [a2].Formula = "=now()": [a2] = [a2] [a3] = [a2] - [a1] End Sub '-----------
-- Salutations JJ
"Jacquouille" a écrit dans le message de news: 4c71748e$0$5293$
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
Bonsoir,
Vba (xl 2003) ne sait pas afficher les centièmes de seconde il faut passer par une formule de cellule.
Contournement comme ceci
'---------------
Sub jj()
[a1:a3].ClearContents
[a1:a3].NumberFormat = "hh:mm:ss.00"
[a1].Formula = "=now()": [a1] = [a1]
For i = 1 To 100000000: Next ' a remplacer par la macro existante
[a2].Formula = "=now()": [a2] = [a2]
[a3] = [a2] - [a1]
End Sub
'-----------
--
Salutations
JJ
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de news:
4c71748e$0$5293$ba620e4c@news.skynet.be...
Bonjour
Afin de mesurer le temps d'exécution, je fais
A1=now en début de macro et A2=now en fin.
En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les
centièmes de seconde, svp en A3?
Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde?
Merci et bonne fin de WE
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Vba (xl 2003) ne sait pas afficher les centièmes de seconde il faut passer par une formule de cellule. Contournement comme ceci '--------------- Sub jj() [a1:a3].ClearContents [a1:a3].NumberFormat = "hh:mm:ss.00" [a1].Formula = "=now()": [a1] = [a1] For i = 1 To 100000000: Next ' a remplacer par la macro existante [a2].Formula = "=now()": [a2] = [a2] [a3] = [a2] - [a1] End Sub '-----------
-- Salutations JJ
"Jacquouille" a écrit dans le message de news: 4c71748e$0$5293$
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
Modeste
Bonsour®
a écrit
Vba (xl 2003) ne sait pas afficher les centièmes de seconde il faut passer par une formule de cellule. Contournement comme ceci '--------------- Sub jj() [a1:a3].ClearContents [a1:a3].NumberFormat = "hh:mm:ss.00" [a1].Formula = "=now()": [a1] = [a1] For i = 1 To 100000000: Next ' a remplacer par la macro existante [a2].Formula = "=now()": [a2] = [a2] [a3] = [a2] - [a1] End Sub '-----------
ou bien avec une API
Option Explicit Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub test() Dim lngStart As Long Dim Elapse As Long Dim lngCounterOne As Long Dim lngCounterTwo As Long
' difference MsgBox CStr(GetTickCount() - lngStart) / 10 ^ 3 & " secondes" _ & vbCrLf & " ce temps comptabilise également le temps de reponse au message précédent", vbInformation, "temps total" End Sub
Bonsour®
Dupond@marcel.fr> a écrit
Vba (xl 2003) ne sait pas afficher les centièmes de seconde il faut passer par
une formule de cellule.
Contournement comme ceci
'---------------
Sub jj()
[a1:a3].ClearContents
[a1:a3].NumberFormat = "hh:mm:ss.00"
[a1].Formula = "=now()": [a1] = [a1]
For i = 1 To 100000000: Next ' a remplacer par la macro existante
[a2].Formula = "=now()": [a2] = [a2]
[a3] = [a2] - [a1]
End Sub
'-----------
ou bien avec une API
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub test()
Dim lngStart As Long
Dim Elapse As Long
Dim lngCounterOne As Long
Dim lngCounterTwo As Long
' difference
MsgBox CStr(GetTickCount() - lngStart) / 10 ^ 3 & " secondes" _
& vbCrLf & " ce temps comptabilise également le temps de reponse au message
précédent", vbInformation, "temps total"
End Sub
Vba (xl 2003) ne sait pas afficher les centièmes de seconde il faut passer par une formule de cellule. Contournement comme ceci '--------------- Sub jj() [a1:a3].ClearContents [a1:a3].NumberFormat = "hh:mm:ss.00" [a1].Formula = "=now()": [a1] = [a1] For i = 1 To 100000000: Next ' a remplacer par la macro existante [a2].Formula = "=now()": [a2] = [a2] [a3] = [a2] - [a1] End Sub '-----------
ou bien avec une API
Option Explicit Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub test() Dim lngStart As Long Dim Elapse As Long Dim lngCounterOne As Long Dim lngCounterTwo As Long
' difference MsgBox CStr(GetTickCount() - lngStart) / 10 ^ 3 & " secondes" _ & vbCrLf & " ce temps comptabilise également le temps de reponse au message précédent", vbInformation, "temps total" End Sub
michel ou sam
j'ai essayé ceci , ça fonctionne aussi mais je n'ai pas compris l'effet du [] sur Now()
Sub test()
Dim i As Long Dim depart As Double Dim fin As Double
depart = [Now()] For i = 1 To 100000000 Next i fin = [Now()]
[b1] = depart [b2] = fin [b3] = fin - depart
End Sub
Michel "Jacquouille" a écrit dans le message de news: 4c71748e$0$5293$
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
j'ai essayé ceci , ça fonctionne aussi
mais je n'ai pas compris l'effet du [] sur Now()
Sub test()
Dim i As Long
Dim depart As Double
Dim fin As Double
depart = [Now()]
For i = 1 To 100000000
Next i
fin = [Now()]
[b1] = depart
[b2] = fin
[b3] = fin - depart
End Sub
Michel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: 4c71748e$0$5293$ba620e4c@news.skynet.be...
Bonjour
Afin de mesurer le temps d'exécution, je fais
A1=now en début de macro et A2=now en fin.
En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min
et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3?
Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr,
min, sec et centièmes de seconde?
Merci et bonne fin de WE
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
j'ai essayé ceci , ça fonctionne aussi mais je n'ai pas compris l'effet du [] sur Now()
Sub test()
Dim i As Long Dim depart As Double Dim fin As Double
depart = [Now()] For i = 1 To 100000000 Next i fin = [Now()]
[b1] = depart [b2] = fin [b3] = fin - depart
End Sub
Michel "Jacquouille" a écrit dans le message de news: 4c71748e$0$5293$
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
michdenis
Bonjour,
| mais je n'ai pas compris l'effet du [] sur Now()
Évidemment, la fonction Now() existe en vba. Par simple observation, j'ai exécuté 3 fois la procédure avec la fonction Now() (vba) et [Now()] (feuille de calcul). Le résultat obtenu porterait à croire que la fonction [Now()] est légèrement plus rapide...la différence se fait sentir à la sixième décimale...différence minime, mais sur une procédure très simple !
"michel ou sam" a écrit dans le message de groupe de discussion : 4c726566$0$10191$ j'ai essayé ceci , ça fonctionne aussi mais je n'ai pas compris l'effet du [] sur Now()
Sub test()
Dim i As Long Dim depart As Double Dim fin As Double
depart = [Now()] For i = 1 To 100000000 Next i fin = [Now()]
[b1] = depart [b2] = fin [b3] = fin - depart
End Sub
Michel "Jacquouille" a écrit dans le message de news: 4c71748e$0$5293$
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille (MPFE).
Bonjour,
| mais je n'ai pas compris l'effet du [] sur Now()
Évidemment, la fonction Now() existe en vba. Par simple observation, j'ai exécuté 3 fois la procédure avec la fonction
Now() (vba) et [Now()] (feuille de calcul). Le résultat obtenu porterait à croire que la fonction [Now()] est légèrement
plus rapide...la différence se fait sentir à la sixième décimale...différence minime, mais sur une procédure très simple
!
"michel ou sam" <prenom-ou-sam@citron.fr> a écrit dans le message de groupe de discussion :
4c726566$0$10191$ba4acef3@reader.news.orange.fr...
j'ai essayé ceci , ça fonctionne aussi
mais je n'ai pas compris l'effet du [] sur Now()
Sub test()
Dim i As Long
Dim depart As Double
Dim fin As Double
depart = [Now()]
For i = 1 To 100000000
Next i
fin = [Now()]
[b1] = depart
[b2] = fin
[b3] = fin - depart
End Sub
Michel
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: 4c71748e$0$5293$ba620e4c@news.skynet.be...
Bonjour
Afin de mesurer le temps d'exécution, je fais
A1=now en début de macro et A2=now en fin.
En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min
et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3?
Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr,
min, sec et centièmes de seconde?
Merci et bonne fin de WE
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
| mais je n'ai pas compris l'effet du [] sur Now()
Évidemment, la fonction Now() existe en vba. Par simple observation, j'ai exécuté 3 fois la procédure avec la fonction Now() (vba) et [Now()] (feuille de calcul). Le résultat obtenu porterait à croire que la fonction [Now()] est légèrement plus rapide...la différence se fait sentir à la sixième décimale...différence minime, mais sur une procédure très simple !
"michel ou sam" a écrit dans le message de groupe de discussion : 4c726566$0$10191$ j'ai essayé ceci , ça fonctionne aussi mais je n'ai pas compris l'effet du [] sur Now()
Sub test()
Dim i As Long Dim depart As Double Dim fin As Double
depart = [Now()] For i = 1 To 100000000 Next i fin = [Now()]
[b1] = depart [b2] = fin [b3] = fin - depart
End Sub
Michel "Jacquouille" a écrit dans le message de news: 4c71748e$0$5293$
Bonjour Afin de mesurer le temps d'exécution, je fais A1=now en début de macro et A2=now en fin. En A3, la différence. Seulement, l'affichage ne me permet que des Hr Min et sec. Comment puis-je ajouter les centièmes de seconde, svp en A3? Autrement dit, quel format dois-je appliquer en A3 pour afficher des Hr, min, sec et centièmes de seconde? Merci et bonne fin de WE
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."