Décompteur temps dans une cellule Excel Résolu/Fermé

Question

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

skk201 · Answer

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 ?

31Peponne · Answer

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

Mike-31 · Answer

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 !

31Peponne · Answer

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

Mike-31 · Answer

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

31Peponne · Answer

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

31Peponne · Answer

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

31Peponne · Answer

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

31Peponne · Answer

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.

Mike-31 · Answer

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