Chronometre
yfchauer
Messages postés
84
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
salut à tous,
je veux réaliser une feuille excel avec un chrono qui me permettra de calculer le temps que je passe sur une application et faire un cumul.
En appuyant sur un bouton "départ", le chrono se lance
Et en appuyant sur "stop" il s'arrête
Ensuite, dans une cellule, il m'affiche le temps écoulé.
Merci d'avance pour votre aide
je veux réaliser une feuille excel avec un chrono qui me permettra de calculer le temps que je passe sur une application et faire un cumul.
En appuyant sur un bouton "départ", le chrono se lance
Et en appuyant sur "stop" il s'arrête
Ensuite, dans une cellule, il m'affiche le temps écoulé.
Merci d'avance pour votre aide
A voir également:
- Chronometre
- Multi chronomètre - Télécharger - Bureautique
- Télécharger chronomètre powerpoint - Télécharger - Présentation
- Chronometre contraction - Télécharger - Santé & Bien-être
- Telecharger chronometre pc - Télécharger - Personnalisation
- Chronomètre pc plein écran - Télécharger - Sport
5 réponses
Plus simple...
Coller un bouton et dans le code du bouton...
A+
Coller un bouton et dans le code du bouton...
Private Sub CommandButton1_Click()
Static OnTime As Boolean
Static TimeON As Date
OnTime = Not OnTime
If OnTime Then
TimeON = Time ' TimeSerial(Hour(Time), Minute(Time), Second(Time))
Range("A1") = ""
Range("A1").NumberFormat = "[hh]:mm:ss"
Else
Range("A1") = Time - TimeON
End If
End Sub
A+
Y a un petit souci comme tu dis, mais il ne vient pas du code communiqué.
Le bouton doit provenir de la boite à outils contrôles.
Placer le bouton sur la feuille.
Double clic dessus et copier le code DANS CETTE FEUILLE et ne pas recopier 2 fois
Private Sub CommandButton1_Click()
Cliquer 1 fois, le chrono démarre
Une 2èm fois le chrono arrète et affiche le temps dans A1
Et in ne saurait pas afficher FAUX !!
Le bouton doit provenir de la boite à outils contrôles.
Placer le bouton sur la feuille.
Double clic dessus et copier le code DANS CETTE FEUILLE et ne pas recopier 2 fois
Private Sub CommandButton1_Click()
Cliquer 1 fois, le chrono démarre
Une 2èm fois le chrono arrète et affiche le temps dans A1
Et in ne saurait pas afficher FAUX !!
Merci pour ton aide.
le code fonctionne bien.
Mais je souhaiterais, en fait, que le temps entre les deux pressions soit soit affiché dans une autre cellule et si possible qu'il y est cumul.
Une fois de plus merci.
Cordialement
Yfchauer
le code fonctionne bien.
Mais je souhaiterais, en fait, que le temps entre les deux pressions soit soit affiché dans une autre cellule et si possible qu'il y est cumul.
Une fois de plus merci.
Cordialement
Yfchauer
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Pour ça tu doit ajouter un 2ém bouton pour l'intermédiaire.
Remplace le code par celui-ci
A+
Remplace le code par celui-ci
Dim TimeON As Date
Dim OnTime As Boolean
Private Sub CommandButton1_Click()
'Intermédiaire
Range("A1") = Time - TimeON
End Sub
Private Sub CommandButton2_Click()
'Démarre/arrète
OnTime = Not OnTime
If OnTime Then Timer
End Sub
Sub Timer()
Static S As Byte
TimeON = Time
Range("A1") = ""
While OnTime
If S <> Second(Time) Then
Range("B1") = Time - TimeON
S = Second(Time)
End If
DoEvents
Wend
End Sub
A+
