Timer qui s'éxecute indépendamment

[nicolase78]

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.

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å]

Salut le forum

Regarde le fichier suivant : Chrono.xslm

Mytå

 

[nicolase78]

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å]

Salut le forum

Remplace les déclarations Long par LongLong

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]

Re : Timer qui s'éxecute indépendamment

J'ai essayé de faire comme ça :

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å]

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]

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]

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å]

Re le forum

Bruno, tu utilises Excel 2010 (64 bits)

Mytå

 

[Compte Supprimé 979]

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]

Re : Timer qui s'éxecute indépendamment

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