IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[E-00] décompte compteur horaire


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    Octobre 2008
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Octobre 2008
    Messages : 2
    Points : 1
    Points
    1
    Par défaut [E-00] décompte compteur horaire
    Bonjour,

    j'utilise excel 2000.

    je souhaiterais créer un compteur horaire qui décompte à partir de l'heure actuelle du pc, le temps restant jusqu'à atteindre l'heure inscrire dans un label (LabelFdj) sous la forme XX:XX. Dès qu'il a atteint l'heure inscrite dans le label, le compteur doit incrémenter pour connaitre de combien la valeur dans le label a été dépassée.
    J'ai trouvé le code pour avoir un compteur (code ci-dessous) mais je ne sais pas comment le faire décompter au lieu de compter et je ne sais pas non plus comment le faire démarrer à une certaine heure.

    Merci de votre aide.
    Bolderic.

    code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    Option Explicit
     
    Public Declare Function SetTimer _
        Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long, _
        ByVal uElapse As Long, _
        ByVal lpTimerfunc As Long) _
    As Long
     
    Public Declare Function KillTimer _
        Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal nIDEvent As Long) _
    As Long
     
    Public CelluleCourante As Range
     
     
    '========== Déclarations Public ========================
    Public TimerID As Long            'Activer avec cet ID
    Public TimerActive As Boolean     'Est le minuteur actif
    '=======================================================
     
    Public Sub ActiverTimer(ByVal sec As Long)
    sec = sec * 1000
    If TimerActive Then Call DesactiverTimer
    On Error Resume Next
    TimerID = SetTimer(0, 0, sec, AddressOf Timer_CallBackFunction)
    TimerActive = True
    End Sub
     
    Public Sub DesactiverTimer()
        KillTimer 0, TimerID
    End Sub
     
    Public Sub Timer_CallBackFunction(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idevent As Long, _
        ByVal Systime As Long)
     
        Dim vel
    'Affichage sur le Userform
    Pageaccueil.Labeldate.Caption = Format(Now, "dddd dd mmmm yyyy") 'ou "Long Date"
    Pageaccueil.LabelFdj.Caption = Format(Now, "hh:mm") 'ou "Long Time"
     
    End Sub

  2. #2
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Points : 5 537
    Points
    5 537
    Par défaut
    Bonjour,

    si heurefin est ton heure de fin :
    Au lieu d'afficher Now, affiche donc la différence entre heurefin et Now
    (datediff à voir dans ton aide en ligne)

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    753
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 753
    Points : 855
    Points
    855
    Par défaut
    Je précise que datediff ne fournira pas un résultat tout cru, et donc qu'il faudra lui demander de donner un résultat en secondes (positives ou négatives), résultat que tu devras retravailler pour l'afficher au format hh:mm:ss.

  4. #4
    Nouveau Candidat au Club
    Inscrit en
    Octobre 2008
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Octobre 2008
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Merci pour votre aide
    Merci pour votre aide, je vais essayer d'approfondir cette piste.

  5. #5
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Points : 5 537
    Points
    5 537
    Par défaut
    Ne te casse pas trop la tête avec des calculs arithmétiques pour convertir un nombre de secondes en heures, minutes et secondes ...

    Regarde :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    duree = 3663 'ta duree en secondes
     MsgBox TimeSerial(0, 0, 0 + duree)

  6. #6
    Membre éclairé
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    753
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2008
    Messages : 753
    Points : 855
    Points
    855
    Par défaut
    J'ai évité de lui dire d'utiliser timeserial pour voir ce qu'il aurait fait. ^^

  7. #7
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2007
    Messages
    491
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 491
    Points : 542
    Points
    542
    Par défaut
    bonjour,

    Dans la rubrique recherche du forum il ya un chronomètre
    ou alors tu peux t inspirer de ceci

    http://www.developpez.net/forums/d45...ickage-bouton/

    Nota : si le tps à décompter ne necessite pas une grande précision
    la fonction datediff sera adaptée

Discussions similaires

  1. incrementer un compteur horaire
    Par olibara dans le forum C#
    Réponses: 2
    Dernier message: 15/02/2009, 10h21
  2. décompte de l'heure dans un compteur de cyber, votre avis!
    Par doderic dans le forum GTK+ avec C & C++
    Réponses: 1
    Dernier message: 26/10/2008, 22h50
  3. [PB CONCEPTUEL] avec compteur/trigger
    Par kase74 dans le forum SQL
    Réponses: 6
    Dernier message: 25/03/2004, 12h02
  4. Remise à 0 d'un compteur automatique
    Par missllyss dans le forum SQL
    Réponses: 4
    Dernier message: 15/12/2003, 17h46
  5. Migration Access > SQL Server (suite) : Compteur
    Par LadyArwen dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 06/03/2003, 15h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo