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 :

Chronometre dans cellule


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    275
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 275
    Par défaut Chronometre dans cellule
    Bonjour tous le monde,

    Je souhaiterais avec se code pouvoir avoir la possibilité de mettre pause et de reprendre avec se bout de 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
    'Pour démarrer le compteur il faut lancer la macro
    'DemarreCalculTps
    'Pour l 'arrêter il faut exécuter
    'ArretCalculTps
    'Code à placer dans un module
     
    Dim ok As Boolean
    Sub DemarreCalculTps()
    ok = True
    Range("A1").Value = TimeValue("00:00:00")
    Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
    End Sub
     
    Sub mettre_a_jour()
    If ok Then
    Range("A1").Value = [A1] + TimeSerial(0, 0, 1)
    Range("A1").NumberFormat = "hh:mm:ss"
    Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
    End If
    End Sub
     
    Sub ArretCalculTps()
    ok = False
    End Sub
    Merci de vos aides,

    Cordialement,

    Vincent

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    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
    Dim ok As Byte
    Sub DemarreCalculTps()
    ok = 1
    Range("A1").Value = TimeValue("00:00:00")
    Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
    End Sub
     
    Sub mettre_a_jour()
    If ok = 1 Then
        Range("A1").Value = [A1] + TimeSerial(0, 0, 1)
        Range("A1").NumberFormat = "hh:mm:ss"
        Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
    ElseIf ok = 2 Then
        Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
    End If
    End Sub
     
    Sub ArretCalculTps()
    ok = 0
    End Sub
    Sub Pause()
    If ok = 1 Then
        ok = 2
    Else
        ok = 1
    End If
    End Sub

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    275
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 275
    Par défaut
    Merci pour ta réponse;

    Cela fonctionne parfaitement. merci encore

    Par contre je souhaiterais savoir comment faire pour que la macro ne s'arrete pas quand je fais des manipulations.

    Cordialement,

    Vincent

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    La macro reprend la main toutes les secondes. Entre-temps, tu peux travailler sur le classeur, ou exécuter les macros permettant l'arrêt ou la pause du chrono.

  5. #5
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Juillet 2012
    Messages
    275
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juillet 2012
    Messages : 275
    Par défaut
    Le soucis, est que quand je fait un double clic dans une cellule pour mettre des données, sa stop le chronometre.

    Cordialement,

    Vincent.

  6. #6
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Oui. Quand tu exécute la macro "Pause" aussi. Qu'est-ce que tu cherches à faire ?

Discussions similaires

  1. [XL-2010] afficher chronometre dans une cellule
    Par chefsun dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/03/2012, 10h24
  2. [D7][DBGrid] Texte dans cellule particulière
    Par moulette85 dans le forum Bases de données
    Réponses: 3
    Dernier message: 28/04/2005, 17h49
  3. Création liste dans cellules Excel en VBA
    Par yazoo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/04/2005, 14h46
  4. Export vers Excel et saut de ligne dans cellule
    Par sbeu dans le forum API, COM et SDKs
    Réponses: 4
    Dernier message: 16/08/2004, 15h53
  5. [D7-EXCEL2000] Formule dans cellule Excel qui ne se calcule pas
    Par Albertolino dans le forum API, COM et SDKs
    Réponses: 3
    Dernier message: 09/09/2003, 14h18

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