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 :

valeur de Chronomètre dans cellule VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Automaticien
    Inscrit en
    Avril 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Automaticien
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 2
    Par défaut valeur de Chronomètre dans cellule VBA
    Bonjour,

    voici l’énoncé mon problème :

    je cherche à réaliser un chronomètre simple pouvant m'afficher "m:s :ms" afin d'enregistrer mes temps d’entraînements.

    j'aimerai un bouton "start" et un bouton "stop" afin de pouvoir le contrôler. et une fois le chronométre arrêté , placer la valeur dans la première cellule du tableur excell et passer à la cellule suivante pour le 2eme temps , ect...

    Le problème étant que je n'y connais pas grand chose en VBA mais ai de bonnes bases de C....

    je requière donc votre aide.

    Merci d'avance à tous !

  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,

    Regarde la classeur joint. Dans le module de la feuille, mets :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Public Depart
     
    Private Sub cbArret_Click()
        Dim Temps As Double
        Temps = Timer - Depart
        Cells(Rows.Count, 1).End(xlUp).Offset(1) = Int(Temps / 60) & "mn " & Int(Temps) - Int(Temps / 60) & _
            Format(Temps - Int(Temps), "#.000") & "sec"
    End Sub
     
    Private Sub cbDepart_Click()
        Depart = Timer
    End Sub
    Fichiers attachés Fichiers attachés

  3. #3
    Nouveau candidat au Club
    Homme Profil pro
    Automaticien
    Inscrit en
    Avril 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Automaticien
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2013
    Messages : 2
    Par défaut Super !
    Waouw ! super !

    j'était loin du compte dans mes recherches et mes essais

    ce code de base va me permettre de pousser un petit peu plus loin car j'ai 2 cellules photoélectriques branchées en USB, j'aimerai m'en servir pour avoir un chronomètre autonome et que cela puisse me chronométrer de façon autonome.

    si vous avez des idées, n'hésitez pas

    Un tout grand merci !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. valeurs dans cellules protégées
    Par casefayere dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/03/2007, 20h18
  2. Vba envoi valeur à un textbox dans un etat
    Par en_gel_ho dans le forum IHM
    Réponses: 7
    Dernier message: 04/01/2007, 13h58
  3. [VBA-E] insertion de formule dans cellule
    Par jeff37 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 31/05/2006, 13h53
  4. [VBA-E] afficher des données apres saisie dans cellule
    Par user0505 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 14/04/2006, 14h04
  5. 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

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