Je souhaiterai connaitre le temps (en seconde) que me prend une fonction
VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le
chronomètre s'enclanche et se termine quand l'opération se termine et
m'affiche le temps écoulmé.
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
Gilles MOUGNOZ
Bonjour, Je souhaiterai connaitre le temps (en seconde) que me prend une fonction VBA à se dérouler. Je souhaiterai que quand je clique sur un bouton d'une fonction le chronomètre s'enclanche et se termine quand l'opération se termine et m'affiche le temps écoulmé. Merci
Bonjour, "hkhjlkjklmj"
Si la précision ne dépasse pas la seconde, une simple variable de type date suffit:
Dim TaDate As Date TaDate = Now() ... MsgBox "Durée du traitement :" & Format(Now() - TaDate,"hh:nn:ss")
Cela te donne la durée en heures, minutes et secondes et non pas le nombre de secondes mais tu peux adapter...
Bonne continuation
Bonjour,
Je souhaiterai connaitre le temps (en seconde) que me prend une fonction
VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le
chronomètre s'enclanche et se termine quand l'opération se termine et
m'affiche le temps écoulmé.
Merci
Bonjour, "hkhjlkjklmj"
Si la précision ne dépasse pas la seconde, une simple variable de type date
suffit:
Dim TaDate As Date
TaDate = Now()
...
MsgBox "Durée du traitement :" & Format(Now() - TaDate,"hh:nn:ss")
Cela te donne la durée en heures, minutes et secondes et non pas le nombre
de secondes mais tu peux adapter...
Bonjour, Je souhaiterai connaitre le temps (en seconde) que me prend une fonction VBA à se dérouler. Je souhaiterai que quand je clique sur un bouton d'une fonction le chronomètre s'enclanche et se termine quand l'opération se termine et m'affiche le temps écoulmé. Merci
Bonjour, "hkhjlkjklmj"
Si la précision ne dépasse pas la seconde, une simple variable de type date suffit:
Dim TaDate As Date TaDate = Now() ... MsgBox "Durée du traitement :" & Format(Now() - TaDate,"hh:nn:ss")
Cela te donne la durée en heures, minutes et secondes et non pas le nombre de secondes mais tu peux adapter...
Bonne continuation
Clément Marcotte
Bonjour,
Sub cesttulongctaffairela() dim temps1 as single, tempstotal as single dim i as integer, carre as double temps1 = TIMER for i = 1 to 100 carre = i * i next tempstotal = timer - temps1 msgbox (tempstotal) msgbox ("Assurez vous que minuit ne survienne pas durant l'exécution de cette macro) end sub "hkhjlkjklmj" a écrit dans le message de news: 4473282b$0$18339$
Bonjour,
Je souhaiterai connaitre le temps (en seconde) que me prend une fonction VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le chronomètre s'enclanche et se termine quand l'opération se termine et m'affiche le temps écoulmé.
Merci
Bonjour,
Sub cesttulongctaffairela()
dim temps1 as single, tempstotal as single
dim i as integer, carre as double
temps1 = TIMER
for i = 1 to 100
carre = i * i
next
tempstotal = timer - temps1
msgbox (tempstotal)
msgbox ("Assurez vous que minuit ne survienne pas durant l'exécution de
cette macro)
end sub
"hkhjlkjklmj" <ihhioj@hoho.fr> a écrit dans le message de news:
4473282b$0$18339$8fcfb975@news.wanadoo.fr...
Bonjour,
Je souhaiterai connaitre le temps (en seconde) que me prend une fonction
VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le
chronomètre s'enclanche et se termine quand l'opération se termine et
m'affiche le temps écoulmé.
Sub cesttulongctaffairela() dim temps1 as single, tempstotal as single dim i as integer, carre as double temps1 = TIMER for i = 1 to 100 carre = i * i next tempstotal = timer - temps1 msgbox (tempstotal) msgbox ("Assurez vous que minuit ne survienne pas durant l'exécution de cette macro) end sub "hkhjlkjklmj" a écrit dans le message de news: 4473282b$0$18339$
Bonjour,
Je souhaiterai connaitre le temps (en seconde) que me prend une fonction VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le chronomètre s'enclanche et se termine quand l'opération se termine et m'affiche le temps écoulmé.
Merci
Hervé
Bonsoir,
'API Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Chrono() Dim Debut As Long
'en millisecondes Debut = GetTickCount()
'Ici ton code ou l'appel de ta fonction...
MsgBox (GetTickCount() - Debut) / 1000
End Sub
Hervé
"hkhjlkjklmj" a écrit dans le message de news: 4473282b$0$18339$
Bonjour,
Je souhaiterai connaitre le temps (en seconde) que me prend une fonction VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le chronomètre s'enclanche et se termine quand l'opération se termine et m'affiche le temps écoulmé.
Merci
Bonsoir,
'API
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Chrono()
Dim Debut As Long
'en millisecondes
Debut = GetTickCount()
'Ici ton code ou l'appel de ta fonction...
MsgBox (GetTickCount() - Debut) / 1000
End Sub
Hervé
"hkhjlkjklmj" <ihhioj@hoho.fr> a écrit dans le message de news:
4473282b$0$18339$8fcfb975@news.wanadoo.fr...
Bonjour,
Je souhaiterai connaitre le temps (en seconde) que me prend une fonction
VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le
chronomètre s'enclanche et se termine quand l'opération se termine et
m'affiche le temps écoulmé.
'API Private Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Chrono() Dim Debut As Long
'en millisecondes Debut = GetTickCount()
'Ici ton code ou l'appel de ta fonction...
MsgBox (GetTickCount() - Debut) / 1000
End Sub
Hervé
"hkhjlkjklmj" a écrit dans le message de news: 4473282b$0$18339$
Bonjour,
Je souhaiterai connaitre le temps (en seconde) que me prend une fonction VBA à se dérouler.
Je souhaiterai que quand je clique sur un bouton d'une fonction le chronomètre s'enclanche et se termine quand l'opération se termine et m'affiche le temps écoulmé.
