Décompteur temps dans une cellule Excel

Résolu/Fermé

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016 - 9 oct. 2016 à 21:47
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 15 oct. 2016 à 07:38

Bonjour, je suis nouveau sur ce forum, et team manager dans une équipe de karting. En parcourant les différentes questions, j'ai trouvé un fichier que j'aimerai adapter avec votre aide, mes connaissances en vba sont très limités. Voici le lien: https://www.cjoint.com/c/DJnikKBciRs
Je voudrais réaliser un compteur qui décompte le temps comme le fichier joint, pour le réaprovisionnement en essence et selon le même principe pour le repos des pilotes. Pour le repos des pilotes, dans le modèle du fichier joint, la colonne F ne me sert à rien ainsi que la colonne I et la colonne K et il ny aurait qu'une seule ligne par pilote d'ou ma question est-il possible de faire une ligne autonome par pilote avec un seul bouton start par ligne que j'actionnerai en temps voulue, pas besoin du stop et du pause . La 1 ligne repos pilote démarre en B4 et B4 serait de couleur verte sur la durée du temps inscrit dans la cellule et formaté en H:mn:s idem dans la celule C4 qui contiendrai les dizaines de minutes mais de couleur orange, et en D4 qui contiendrai les minutes mais de couleur rouge et pour finir le décompte comme dans le fichier joint en E4. J'ai 8 pilotes, les différents compteur ne vont-il pas poser de problèmes d'affichage ?.Pour le plein d'essence je voudrai reprendre le même exemple que je métrai sur une ligne du temps de repos des pilotes.
Je suis sous Windows 10 et Excel 2003.
Je vous remercie par avance pour votre aide

Cordialement

Peponne31

A voir également:

Compteur de temps excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Blocage agriculteur carte en temps réel - Guide
Aller à la ligne excel - Guide

10 réponses

Réponse 1 / 10

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
13 oct. 2016 à 10:46

Hello,

Comme tu n'as pas de retour d'autres membre je me propose de t'aider.

Je n'ai malheureusement pas accès a ton fichier exemple pour le moment. Mais je pense que cela ne sera pas immédiatement necessaire.

Tu aimerais faire relativement beaucoup de corrections au programme pour répondre à très besoins... C'est pourquoi je te propose de créer un tout nouveau document qui lui sera parfaitement adapté à tes besoins.

TU vas le créer avec mon aide. Tu verras cela sera beaucoup plus enrichissant pour toi et au moins tu comprendras parfaitement son fonctionnement et qui sait plus tard tu seras peut-être même capable de m'améliorer toi même.

Est-ce que cela t'intéresse ?

Réponse 2 / 10

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016
13 oct. 2016 à 13:44

Bonjour skk201,

Déjà merci pour m'avoir répondu.
Effectivement je suis interressé, je me permet d'ajoute en fichier joint ce que j'ai réalisé (avec de l'aide) et que j'aimerai conserver, il ne comporte pas les compteurs temps. Cete mise en page me convient pour tout voir d'un coup d'oeil. Si il faut tout refaire, je referais (sniffff)
https://www.cjoint.com/c/FJnlCGKFQq8
Cordialement

Réponse 3 / 10

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
13 oct. 2016 à 14:52

Salut Peponne,

s'agit il du karting du Lherm à côté de Muret !

tu peux expliquer ce que tu veux faire exactement sur ton fichier,
en B5 tu as le nombre de relais et en B6 la durée de chaque relais
à partir de ces deux valeurs dans quelle cellule veux tu le décompte et doit il se relacer dans la même cellule !

Réponse 4 / 10

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016
13 oct. 2016 à 15:15

Bonjour Mike31,

Merci pour ton aide, B5 et B6 sont respectivement le nombre de relais imposées et le temps de roulage minimum par pilote. Ce que je voudrai mètre en place, c'est le temps de repos par pilote, dans cette configuration il s'agirai de 3h20mn donc en B8 cellule formaté en heures minutes et secondes, elle me sert à afficher les heures et serai fond vert, en C8 formaté en heures minutes et secondes pour afficher les minutes fond rouge et en D8 la cellule serai formaté en heures minutes et secondes et décompterai par appuie sur un bouton le temps inscrit en B8 (qui pourrait être variable en fonction du temps de course ex. 24 heures ou 12 heures ou une 6 heures) puis le temps inscrit D8 avec bip de fin. Je reprendrai les mêmes informations pour chaque Pilote.
Cordialement
Pierrot

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
13 oct. 2016 à 15:26

Re,

j'ai du mal à cerner ton problème, d’où sortent dans tes explications ces 3h20

tu ne m'as pas répondu sur le site du karting

Réponse 6 / 10

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016
13 oct. 2016 à 15:38

Re,

Les 3heures20 sont le temps de repos que j'accorde à chaque pilote après un run, ce temps est défini par le nombre de pilotes qui peut être aléatoire mais pour 2017 nous louerons 2 kartings et la seconde équipe sera constitué de 8 pilotes d'où mes 3heures 20.
Le site est bien celui du karting du Lherm à côté de Muret.
PS tu as couru dessus ?

Cordialement

Pierrot

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
14 oct. 2016 à 13:08

Je vois que dans ton code il y a des boutons.

Pourtant je ne les vois pas sur la feuille. Est-ce que tu ne les as pas encore mis ou est-ce mon Excel 2016 qui bug avec l'interprétation du fichier .xls ?

Réponse 7 / 10

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016
14 oct. 2016 à 13:39

Bonjour skk201,

Il y a un bouton en A16 (Choix Pilotes) sur la feuil 1. Dans le code de la feuille 1, les boutons btn_Start, btn_Stop et btn_ Pause n'existent plus, je ne suis pas arrivé à incorporer les procédures et ai oublié de les supprimer.

Cordialement

Pierrot

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
14 oct. 2016 à 13:46

Ok J'ai ajouté les pilotes.

Qu'est-ce que je devrai théoriquement faire ensuite pour utiliser le classeur ?

Est-ce qu'il faudrait appuyer sur un bouton ? Qu'est-ce que ce bouton devrait déclencher ?

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016 > skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016
14 oct. 2016 à 15:43

Je voudrai créer un bouton qui me lance le compteur en C1 et le décompteur qui est lié en I1. actuellement, il faut introduire 0 en E1 pour la mise en route et 1 pour l'arrêt.

Ensuite, je voudrais créer en partent de B8, 3 cellules formatées en heures minutes et secondes donc B8,C8,D8.
B8 contiendrai des heures et minutes et resterai verte le temps que D8 décompte sa valeur ensuite C8 qui contiendrai des minutes et serai rouge le temps que C8 décompte sa valeur.
Les valeurs de B8 et C8 seraient rentrées manuellement Ex. B8= 02:10:00; C8= 00:15:00.
Le décompte se ferai sur un bouton mis sur la même ligne en (ligne 8).
Je voudrai si cela est possible, faire la même chose pour les différents pilotes présents de A8 à A15
Peux-tu me dire ci cela est réalisable ?.

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
Modifié par skk201 le 14/10/2016 à 17:20

En gros B8 = 02:10 ça veux dire qu'il doit faire un repos de 2h 10 ?
Et pourquoi également C8 et D8 ?

Si tu dois entré les valeur manuellement cela va poser un problème : Lors de la saisie le timer s'arrête automatiquement à moins que tu utilise un autre type de timer.

De plus je te recommanderai fortement de sauvegarder automatiquement le fichier toutes les heures (en cas de panne ?).

Dans ce cas là le timer serait également suspendu....

Pour l'autre type de timer au lieu d'ajouter et de diminuer le temps de chaque seconde dans les cellules C1 et I1. Tu définis l'heure de fin au début et dans les cellules C1 et I1 tu affiches les différences entre l'heure de fin et l'heure actuelle.

Est-ce que tu me suis ?

Ensuite pour démarrer le timer tu as le choix un bouton c'est bien. Personnellement j'utiliserai un double-clic sur C1 pour le lancer :) et un double-clic sur I1 pour le terminer.

Réponse 8 / 10

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016
14 oct. 2016 à 18:35

Disons que en B8 c'est le temps dont il dispose pour se reposer et en C8 c'est le temps (variable) que je m'accorderai pour finir de le réveiller, s'habiller et venir au stand pour prendre le relais.
D8 est la cellule qui me permet de visualiser le décompte effectué en B8 puis C8.
Je vais essayer de faire la correction en C1 et I1 qui me parait plus judicieuse.
Comment effectuer un double clic en E1 pour actionner la mise en route de E1.
PS puis je joindre en fichier joint un exemple des compteurs que je voudrais mètre en place ?
Cordialement

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
Modifié par skk201 le 14/10/2016 à 18:53

Bien sûr cette information pourrait être très pratique

pour le code du double clique tu peux essayer le suivant :

'A mettre dans le code de la feuille 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("E1")) Is Nothing Then
        'Ton code à faire après le double clique
        Cancel = True 'Annule le double-clique
    End If
End Sub

C'est un peu difficile a comprendre, mais en gros ça veux dire quand qqun clique dans une cellule qui se trouve dans "E1" alors ... Essaye de voir se que tu arrives à faire si tu as besoin d'aide n'hésite pas à demander.

Re,

Je vais essayer d'appliquer tes commentaires, et te montrer le résultat (bon ou mauvais).

Merci encore.

Pierrot

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
14 oct. 2016 à 19:55

C'est en faisant des erreurs que l'on apprend :)

Est-ce que tu veux également de l'aide pour la création du timer basé sur "l'heure de fin" ou est-ce que tu veux conserver ton timer "d'incrémentation seconde par seconde" ?

Honnêtement, je ne sais pas ce qui est mieux.
Dans un premier temps je vais essayer d'adapter ton code avec se qui existe.

Merci

Pierrot

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54 > 31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016
14 oct. 2016 à 20:41

Alors si tu veux juste l'adapter à ton code c'est simple.

Il faut faire que si tu double-clic : Si la valeur est 0 elle devient 1 et si elle est 1 elle devient 0. (Sauf erreur)

Réponse 9 / 10

31Peponne Messages postés 12 Date d'inscription dimanche 9 octobre 2016 Statut Membre Dernière intervention 14 octobre 2016
14 oct. 2016 à 22:58

Re,

J'arrive à faire ceci (avec des livres) et un bouton.

Private Sub CommandButton2_Click()
Remplace1Par0
End Sub
Sub Remplace1Par0()
[E1].Replace What:="1", Replacement:="0", LookAt:=xlPart
Range("F1").Select
End Sub

Pas fameux mais fonctionne.

Réponse 10 / 10

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
15 oct. 2016 à 07:38

Re,

comme le propose SKK pourquoi ne pas passer par un simple double clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If [E1] = 0 Then [E1] = 1 Else [E1] = 0
End Sub
pour que le décompte redémarre automatiquement avant End Sub ajoute ActiveCell(1, 2).Select

pour cibler uniquement la cellule E1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [E1]) Is Nothing Then
If [E1] = 0 Then [E1] = 1 Else [E1] = 0
ActiveCell(1, 2).Select
End If
End Sub

certainement à demain sur le circuit

Discussions similaires

Je tiens combien de temps avec 2Go d'internet ?

Discussions similaires

Newsletters