Timer qui s'éxecute indépendamment

nicolase78 · 5 Juillet 2011

Bonjour à tous,

Je souhaiterais qu'il y ai un timer qui s'éxecute quand j'appuie sur un bouton. Le Timer compte les minutes et les seconces quand on clique sur un bouton mais pendant ce temps là on peut faire ce que l'on veut, changer la valeur dans les cases excel, lancer d'autres macro...

Je ne sais pas si c'est possible puisque ça voudrait dire que 2 macros tournent en même temps...

Voici ce que j'ai trouvé pour lancer le timer "sans pouvoir continuer normalement" sur Excel.

Code:

Public départ, fin
Sub demarre()
  départ = Timer
  fin = False
  Do While Not fin
    [A1] = Format((Timer() - départ) / 3600 / 24, "hh:mm:ss")
    DoEvents
  Loop
End Sub

Sub arret()
  fin = True
End Sub

Merci d'avance pour votre aide !

Mytå · 5 Juillet 2011

Salut le forum

Regarde le fichier suivant : Chrono.xslm

Mytå

nicolase78 · 5 Juillet 2011

Re : Timer qui s'éxecute indépendamment

Myta merci beaucoup pour ton fichier, seulement cela me fait une erreur quand je l'exécute cela me dit que le code doit être mis à jour pour sysèmes 64 bits (comme mon récent portable), j'ai essayé de changer 32 par 64 dans le code ça ne marche pas !

Mytå · 5 Juillet 2011

Salut le forum

Remplace les déclarations Long par LongLong

Code:

Win64
   Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
Win32
   Declare Function MyMathFunc Lib "User32" (ByVal N As Long) As Long

Deux liens :
Ce lien n'existe plus
et
...macro VBA que vous exécutez dans un environnement 64 bits

Mytå

nicolase78 · 5 Juillet 2011

Re : Timer qui s'éxecute indépendamment

J'ai essayé de faire comme ça :

Code:

Private Declare Function SetTimer Lib "User32" (ByVal hWnd As LongLong, ByVal nIDEvent As LongLong,
        ByVal uElapse As LongLong, ByVal lpTimerFunc As LongLong) As LongLong

Private Declare Function KillTimer Lib "User32" _
    (ByVal hWnd As LongLong, ByVal nIDEvent As LongLong) As LongLong

Mais j'ai toujours la même erreur à l'écran, (j'ai lu le lien en français sinon mais je sais pas trop comment corriger quand même).

Mytå · 5 Juillet 2011

Re le forum

Je n'ai pas de version 64 bits pour tester

Declare PtrSafe Function ...

Mytå

Nicolas, merci de compléter ton profil tu utilises Excel 2010 ?

Habitude · 6 Juillet 2011

Re : Timer qui s'éxecute indépendamment

Effectivement tu dois ajouter la déclaration de PtrSafe
Par contre, s'il n'est pas installé, ca ne marchera pas plus.

Lien pour installer PtrSafe

Compte Supprimé 979 · 6 Juillet 2011

Re : Timer qui s'éxecute indépendamment

Bonjour à tous,

Chez moi W7 64bits + Office 2010 32bits (car installé en parallèle à 2003),
le fichier fonctionne parfaitement 😉

A+

Mytå · 6 Juillet 2011

Re le forum

Bruno, tu utilises Excel 2010 (64 bits)

Mytå

Compte Supprimé 979 · 6 Juillet 2011

Re : Timer qui s'éxecute indépendamment

Salut Myta,

Oups désolé ... j'utilise Office 2010 32bits
car installé en parallèle avec office 2003 qui lui n'est qu'en 32 bits

A+

nicolase78 · 6 Juillet 2011

Re : Timer qui s'éxecute indépendamment

Merci à tout le monde pour votre aide, j'ai réussi avec ptrsafe.
Le timer marche niquel !

Timer qui s'éxecute indépendamment

nicolase78

XLDnaute Junior

Mytå

XLDnaute Occasionnel

nicolase78

XLDnaute Junior

Mytå

XLDnaute Occasionnel

nicolase78

XLDnaute Junior

Mytå

XLDnaute Occasionnel

Habitude

XLDnaute Accro

Compte Supprimé 979

Guest

Mytå

XLDnaute Occasionnel

Compte Supprimé 979

Guest

nicolase78

XLDnaute Junior

Discussions similaires

Timer qui s'éxecute indépendamment

XLDnaute Junior

XLDnaute Occasionnel

XLDnaute Junior

XLDnaute Occasionnel

XLDnaute Junior

XLDnaute Occasionnel

XLDnaute Accro

Compte Supprimé 979

Guest

XLDnaute Occasionnel

Compte Supprimé 979

Guest

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency