-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" a écrit
dans le message de
news:1f0ec01c45760$c737b410$
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer unchronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autreclic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" <Gee-dee-@discussions.microsoft.com> a écrit
dans le message de
news:1f0ec01c45760$c737b410$a101280a@phx.gbl...
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" a écrit
dans le message de
news:1f0ec01c45760$c737b410$
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer unchronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autreclic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" a écrit
dans le message de
news:1f0ec01c45760$c737b410$
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer unchronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autreclic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" <Gee-dee-@discussions.microsoft.com> a écrit
dans le message de
news:1f0ec01c45760$c737b410$a101280a@phx.gbl...
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" a écrit
dans le message de
news:1f0ec01c45760$c737b410$
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer unchronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autreclic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" a écrit
dans le message de
news:1f0ec01c45760$c737b410$
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer unchronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autreclic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" <Gee-dee-@discussions.microsoft.com> a écrit
dans le message de
news:1f0ec01c45760$c737b410$a101280a@phx.gbl...
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+
-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer un
chronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autre
clic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,
mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97
Merci
Flo riant
.
.
-----Message d'origine-----
Salut Modeste et merci
Désolé, cela ne fonctionne pas, je dois avoir des
problème pour l'adapter.
Flop riant
"Modeste" a écrit
dans le message de
news:1f0ec01c45760$c737b410$
Bonsour(®) Flot riant ;o)))
à adapter pour un userform
ici pour tester, il suffit de créer une textbox sur la
feuille de calcul et y associer la macro ci-dessous:
Declare Function GetTickCount Lib "kernel32" () As Long
Sub Test_Chrono()
'--- basé sur les exemple de laurent longre
'--- http://longre.free.fr/pages/prog/hnamespace.htm
Dim duree As Double, fin As Long, result As Long
On Error GoTo debut
'-------Lecture de la variable masquée, si erreur on la
crée
result = Application.ExecuteExcel4Macro("CHRONO1")
fin = GetTickCount '
duree = (fin - result) / 1000
MsgBox "Durée : " & duree & "(s)"
ActiveSheet.TextBoxes(1).Text = "Cliquez pour activer le
Chronometre N°1"
'-------Suppression de la variable masquée
Application.ExecuteExcel4Macro "SET.NAME(""CHRONO1"")"
Exit Sub
debut:
'-------Creation de la variable masquée CHRONO1
'-------ainsi plusieures variables chronos peuvent etre
crées et utilisées
depart = GetTickCount
Application.ExecuteExcel4Macro "SET.NAME
(""CHRONO1""," & depart & ")"
ActiveSheet.TextBoxes(1).Text = "Chronometre N°1
actif démarré à " & Format(Now, "hh:mm:ss")
End Sub
@+-----Message d'origine-----
Bonsoir, je souhaite après clique dans un bouton sur mon
Userform lancer unchronomètre, en fait :
A un clic sur un bouton le chrono invisible se lance,
puis sur un autreclic, le chrono affiche le temps mis en secondes.
Je suis allé sur plusieurs sites les propositions sont
certes nombreuses,mais trop complexes, ou certaines ne fonctionne pas avec
Excel 97Merci
Flo riant
.
.
