[Excel] Time Tracker Projets : Un timer par tâche

Question

Bonjour, 

Je suis entrain d'éditer (enfin plutôt d'essayer d'éditer) un fichier Excel "Time Tracker" afin de pouvoir comptabiliser le temps total passé sur un projet.

L'idée est d'avoir un fichier par projet dans lequel je commence par indiquer le temps de travail estimé.
Ensuite, je précise chaque tâche d'exécution et pour chacune d'elle j'aurai la possibilité de lancer un timer dès que je travaille dessus. A la fin, je stoppe le timer. 
Ainsi de suite pour les autres tâches éventuelles.
Mais aussi, j'aurai la possibilité de reprendre une tâche déjà démarré.

A la fin du projet, la somme des temps passés sur toutes les tâches d'exé. me donnera le temps total passé sur le projet. Et je pourrais comparer avec l'estimation faite au départ.

N'y connaissant rien en code ou en VBA, j'ai commencé à éditer mon fichier en m'appuyant sur cet article pour avoir un code VBA pour le timer :
https://fr.extendoffice.com/documents/excel/3684-excel-create-stopwatch.html
J'ai pu réaliser ainsi un timer pour la 1ère tâche d'un projet.

Sans réellement comprendre le code, j'ai tout de même réussi à intégrer un 2nd timer (pour la 2e tâche donc) indépendant du premier.

Dans cette logique, je peux en réaliser autant que je le souhaite. Pas de problème.

Par contre, j'ai deux problèmes que je ne comprends pas et que je n'arrive pas à résoudre :
#1/ Je lance le timer en cliquant sur "Démarrer", je laisse s'écouler quelques secondes. Si je reclique sur "Démarrer", le timer revient à zéro. Alors que pour ça, il y a le bouton "Réinitialiser".
Si je lance le timer, je laisse quelques secondes, j'appuie sur "Arrêter", le timer s'arrête. Si je rappuie sur "Démarrer", le timer repart normalement. Par contre, si je rappuie sur "Démarrer", le timer va reviennir au temps qu'il était la dernière fois que j'ai cliqué sur "Arrêter".

#2/ Je lance le timer, j'attends, je clique sur "Arrêter" et j'enregistre le fichier avant de le fermer. J'ouvre de nouveau le fichier, je clique sur "Démarrer" pour relancer le timer et celui-ci repart depuis zéro au lieu de reprendre sur le temps déjà écoulé.

Je vous laisse l'ébauche sur laquelle je travaille : https://www.cjoint.com/c/KKpkjANkffr

Certaines cellules ne sont pas à jour (comme certaines formules de %, etc...) car pour l'instant c'est secondaire et elles sont là pour la mise en page.
Par la suite, j'aurai d'autres questions justement à ce sujet et sur certaines mises en forme de cellules je pense.

J'espère avoir été suffisamment explicite et j'espère que vous pourrez m'aider.
J'ai bien conscience que le code VBA n'est peut-être adapté à ma problématique mais dans l'état de mes connaissances et du temps libre que j'ai, c'était la meilleur solution pour moi.
A voir s'il faut modifier l'existant ou carrément le refaire...?

Quoiqu'il en soit, merci pour votre aide !

Configuration: Windows / Firefox 94.0

f894009 · Answer

Bonjour,

Le code que vous avez recupere n'est pas prevu pour le parkinson du bouton demarrer
De plus, sauf erreur de ma part, les cellules B13 et B20 sont ecrites en texte donc ne seront jamais egales a 0. Curieux que la personne qui a fait ce code ne l'ait pas vu.

Nez en moins, je vais voir la chose cette apres-midi.
Decrivez en detail ce que vous voulez obtenir avec vos click click des boutons

tomafou · Answer

Merci pour votre réponse et vos observations !

Concernant mes click clicks :
L'idée c'est de pouvoir démarrer un timer pour une tâche et de l'arrêter/relancer au besoin.
Je jongle entre différents dossiers et tâches donc j'ai besoin de pouvoir arrêter le temps du Projet 1/Tâche 1 pour démarrer le timer du P3/T1 et puis revenir sur le P2/T3 etc...etc...

En gros, il faudrait un bouton PLAY / PAUSE un peu comme ça :
http://wudatime.com/wp-content/themes/wudatime/img/features/features_progressBar.png

Scénario type :
1/ je crée un nouveau fichier pour un nouveau projet
2/ je renseigne mon fichier avec le nom du projet et les tâches utiles
3/ je démarre le timer d'une tâche 
4/ j'arrête le timer (pause repas par exemple)
4bis/ je relance le timer le temps d'une modification et j'arrête le timer.
5/ j'enregistre et je ferme le fichier
6/ 4 jours plus tard, je réouvre mon fichier et je lance le timer d'une tâche (tous les temps sont conservés)
7/ A la fin du projet, je connais le temps passé total

Fonctions :
- 1 bouton "Démarrer"
- 1 bouton "Arrêter"
(ou dans le top du top, un bouton "Démarrer" qui se transforme en "Arrêter" - Play/Pause)
- 1 bouton "Réinitialiser" si besoin (mais je ne suis pas encore pleinement convaincu de l'utilité)
- Le timer doit continuer à tourner si l'on passe sur une autre fenêtre/fichier/dossier/application/etc...
- Le timer doit s'arrêter en fermant le fichier

Je crois que c'est tout pour le moment :)

f894009 · Answer

Re,

Ok, je regarde la chose.

Vous tenez vraiment a des temps au centieme de seconde?

Pour le point 2/ ajout projet, physiquement ca se fera comment

tomafou · Answer

Top merci beaucoup !

Non, je ne tiens pas aux centièmes et même les secondes peuvent y passer si ça vous arrange ! ;)

f894009 · Answer

Bonjour,
Pour le point 2/, pouvez répondre !

Je suppose que vous allez avoir une seule tache en court pour un seul projet.

tomafou · Answer

Bonjour,

désolé je n'avais pas vu votre question rajoutée.
Pour renseigner un nouveau projet, j'écrirai simplement dans la cellule (au format texte).
Et oui, il n'y aura qu'une seule tâche en cours par projet.

Par contre, je viens de penser à une éventualité :
Si je suis en déplacement pour une réunion de projet, je ne pourrais pas lancer le timer de la tâche "réunion". Pensez-vous qu'il soit possible de rajouter un temps dans une tierce cellule et que le timer la prenne en compte ?
Possibilité 1 :
Je renseigne manuellement le temps de réunion dans une cellule dédiée, et le temps total de la tâche se met à jour.
Possibilité 2 :
Je renseignement manuellement le temps de réunion et le timer se met à jour (et par 
conséquent le temps total).

Cela serait valable pour n'importe quelle tâche idéalement.

A voir si c'est possible ou pas.

f894009 · Answer

Re,

Pour renseigner un nouveau projet, j'écrirai simplement dans la cellule (au format texte).
Tout a fait Thierry, mais a quel endroit, sous quelle forme.
Pour le projet exemple, y a deja une palanquee de cellules et des boutons. Donc si nouveau projet, quel forme aura sa representation et ou?

Si je suis en déplacement pour une réunion de projet
Ben, je suppose que ces reunions sont incontournables, prevoir dans votre projet une ou plusieurs cellules ou vous renseignerez  les temps passes des le depart

tomafou · Answer

C'est comme le Port-Salut, c'est écrit dessus !

Les infos concernant le projet iront en remplacement des cellules "B2" (CLIENT), "B3" (Projet), "B10" (Réunion [par exemple]), etc...

A chaque nouveau projet, je ferais une copie du fichier de base. Chaque dossier aura son dossier Timer.

Oui les réunions sont incontournables mais certaines se font en visio et d'autres en physique.
Donc dans mon estimatif de temps, j'aurai également estimé un certain nombre d'heures pour les réunions.
Si par exemple, j'ai prévu 6h de réunions, j'en aurai peut-être 2,5 en visio et pour lesquelles je pourrais activer le timer. Pour les autres, il faudra bien que je le renseigne quelques part en rentrant car je ne sais pas à l'avance le temps d'une réunion. D'où cette notion d'estimation en amont.

f894009 · Answer

Re,

C'est comme le Port-Salut, c'est écrit dessus !
Si vous le dites, je ne mange pas de Port-Salut.

A chaque nouveau projet, je ferais une copie du fichier de base.
Un classeur par projet, ok

Je fais pour le classeur que vous avez mis a dispo.

tomafou · Answer

Merci beaucoup pour votre aide !

f894009 · Answer

Bonjour,

Votre fichier modifie pour deux paves Taches (1,2). A vous de faire pour le quatre autres.
J'ai fais au plus simple, facile..

Si le nombre de taches est aleatoires en fonction du projet , il faudra adapter le nombre de paves Taches.
Pour vos affaires visio et réunionite a vous de voir

 https://www.cjoint.com/c/KKrh14CYQKf

tomafou · Answer

Bonjour,

Un grand merci pour votre aide ! 

Je vais reprendre le fichier pour essayer d'y intégrer les heures en déplacement.

Mais en attendant, quelques petites choses encore :
- Je me suis peut-être mal exprimé, mais je parlais d'un bouton "Réinitialiser" pour chacune des tâches et non pas un bouton général.
Est-ce qu'il serait également possible d'avoir un pop-up de confirmation quand on clique sur "réinitialiser" ? Histoire de ne pas tout effacer si on clique par erreur dessus.

- En B5 (cellule fusionnée B5-J5), comment réaliser une barre de progression liée au pourcentage en J2 ?

- En J10, J18, J26, J34, J42 et J50 (% du tps passé par tâche), est-il possible de calculer ce pourcentage d'après des cellules au format 'Heure' (B13/BE13) ? Je n'y suis pas arrivé et la seule parade que j'ai trouvé c'est de passer les heures au format décimales (G15, H15, H16).

f894009 · Answer

Re,

d'un bouton "Réinitialiser" pour chacune des tâches
Oui, facile a faire vous avez le code du bouton, juste a lire et adapter

un pop-up de confirmation 
https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/msgbox-function

tomafou · Answer

bon, je vais essayer de trouver comment faire pour le bouton "Réinitialiser".

Pour le pop-up, j'ai lu et pour l'instant...j'ai rien compris !!

f894009 · Answer

Re,

Petit probleme, votre fichier de base et celui que j'ai code ne peuvent pas depasser de temps de 23:59:59.
Je vais voir a resoudre la chose

f894009 · Answer

Re,

Petit probleme, votre fichier de base et celui que j'ai code ne peuvent pas depasser de temps de 23:59:59.
Je vais verifier et voir a resoudre la chose si c'est le cas

f894009 · Answer

Bonjour,

Verif faites, depasse pas les 24h. Normal vu l'utilisation de Time.
Les deux code d'origines ayant ete crees par la meme personne, tout a fait normal que le resultat soit le meme
Je regarde a faire un compteur de temps qui corresponde a votre attente

tomafou · Answer

Bien vu, je n'ai pas pensé à vérifier cela !

Sinon, j'ai réussi à faire un bouton "Réinit." pour chaque tâche.
Par contre, je n'arrive pas à faire le pop-up de confirmation. Si vous pouviez m'aider là-dessus.

f894009 · Answer

Re,

Si vous pouviez m'aider là-dessus.
'code bouton arret a modifier
Private Sub Cmd_A1_Click()
    If Not Flg_A And TD = 1 And Message Then
        Flg_D = False
        Flg_A = True
        RCel = 2
        Call StopClock
    End If
End Sub

'Message Box complete
Function Message() As Boolean
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Etes vous sur de vouloir arreter cette tache?"    ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "MsgBox Arret"    ' Define title.
    Help = ""           '"DEMO.HLP"    ' Define Help file.
    Ctxt = 1000    ' Define topic context.
            ' Display message.
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then    ' User chose Yes.
        Message = True
    Else    ' User chose No.
        Message = False
    End If
End Function

f894009 · Answer

Re,

Si vous pouviez m'aider là-dessus.
'code bouton arret a modifier
Private Sub Cmd_A1_Click()
    If Not Flg_A And TD = 1 And Message Then
        Flg_D = False
        Flg_A = True
        RCel = 2
        Call StopClock
    End If
End Sub

'Message Box complete
Function Message() As Boolean
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Etes vous sur de vouloir arreter cette tache?"    ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "MsgBox Arret"    ' Define title.
    Help = ""           '"DEMO.HLP"    ' Define Help file.
    Ctxt = 1000    ' Define topic context.
            ' Display message.
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then    ' User chose Yes.
        Message = True
    Else    ' User chose No.
        Message = False
    End If
End Function

f894009 · Answer

Re,

Si vous pouviez m'aider là-dessus.

'code bouton arret a modifier
Private Sub Cmd_A1_Click()
    If Not Flg_A And TD = 1 And Message Then
        Flg_D = False
        Flg_A = True
        RCel = 2
        Call StopClock
    End If
End Sub

'Message Box complete
Function Message() As Boolean
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Msg = "Etes vous sur de vouloir arreter cette tache?"    ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "MsgBox Arret"    ' Define title.
    Help = ""           '"DEMO.HLP"    ' Define Help file.
    Ctxt = 1000    ' Define topic context.
            ' Display message.
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then    ' User chose Yes.
        Message = True
    Else    ' User chose No.
        Message = False
    End If
End Function

tomafou · Answer

Merci mais je ne sais pas où renseigner ce code ?
J'ai essayé à la fin mais ça ne fonctionne pas et ça me dit qu'il y a une ambiguïté avec "Cmd_A1_Click".
J'ai essayé en remplaçant par le nom d'un autre bouton et en déplaçant ce code mais rien n'y fait. Comme je ne connais même pas les bases du code, c'est un peu compliqué pour moi de savoir quoi en faire...

f894009 · Answer

Re,

Vous devez ajouter la fonction Message dans un nouveau module

Vous devez ajouter Message dans toutes les lignes du IF de chaque bouton Arret

Je suis sur le comptage d'heure. Devrait pas etre long

Suite:

Sera demain.

f894009 · Answer

Bonjour,

Comptage heures ok
% total heures projet et taches 1et 2 ok

Par contre Heures estimees Taches, vous saisissez un nombre d'heures entieres, avec decimales?
Il faut que je puisse integrer vos heures sans compteur
Il faudrait discuter du nombre de taches en fonction du projet de facon a ne pas lancer des compteurs inutiles.
Vous verriez la chose de quelle facon, j'ai la mienne mais vous devez participer a l'elaboration de votre "outil de travail"

Il me faudrait le fichier que vous avez modifie pour le mettre a jour

tomafou · Answer

Vous devez ajouter la fonction Message dans un nouveau module 
Je ne sais même pas ce qu'est un module ni comment faire pour en créer un nouveau

Vous devez ajouter Message dans toutes les lignes du IF de chaque bouton Arret 
Je ne comprends pas ce que je dois faire.

C'est peut-être évident pour vous car vous avez l'habitude mais pour un néophyte, c'est incompréhensible.

Par contre Heures estimees Taches, vous saisissez un nombre d'heures entieres, avec decimales? 
Les cellules "Temps estimé" (E13, E21, E29, E37, E45, E53) sont renseignées au format hh:mm:ss donc pour 1h30 je remplis 01:30:00.

Il faut que je puisse integrer vos heures sans compteur 
J'ai fait une première intégration.
L'idée c'est d'avoir un bouton "Temps additionnel" (que j'utiliserai occasionnellement) qui ramène à une feuille dédiée "Temps Add."
Dans cette feuille, j'ai fait simple, je peux renseigner une date et une durée. Et ce, pour les 6 tâches.
Et si vous allez dans la feuille "Taches", j'ai rajouté une colonne pour que les totaux des "temps add." soient ajoutés aux chronos de chaque tâche et au temps total.

C'est très certainement pas fait dans les règles de l'art, mais malgré mon peu de connaissances sur Excel cela fonctionne. Si vous souhaitez modifier le schmilblick pas de soucis.

Il faudrait discuter du nombre de taches en fonction du projet de facon a ne pas lancer des compteurs inutiles.
Vous verriez la chose de quelle facon, j'ai la mienne mais vous devez participer a l'elaboration de votre "outil de travail" 
Dans l'idéal, les 6tâches demandées.
Après, il peut il y avoir 3 tâches par défaut par exemple et avec un simple bouton je peux en rajouter une ou en supprimer une, pas de soucis, avec plaisir.
Mais l'idée principale c'est que je ne perde pas de temps à modifier le nombre de tâche à chaque fois que j'ouvre un nouveau projet.
Si j'ai besoin de 4 tâches pour un projet, je préfère en avoir 2 inutiles et visibles que de bidouiller le code, la mise en forme, etc... à chaque fois.

Je vous laisse le tableau modifié :
 https://www.cjoint.com/c/KKthRORJ0Sr

f894009 · Answer

Re,

visibles que de bidouiller le code
Peut de modif, simplement de verifier si la cellule Tache n'est pas vide pour lancer un compteur et pas de suppression dans feuille Projet
Ceci dit, les cellules taches se remplissent avec le tableau tache pas une liste de choix.

certainement pas fait dans les règles de l'art
"Tout est bon dans l'cochon":

f894009 · Answer

Bonjour,

Z'etes toujours a l'ecoute?


Vu de ma fenetre:
Fichier modifie:  https://www.cjoint.com/c/KKxgNCx0Kef
Remplace compteur heure Time par un compteur de seconde.
De ce fait, ai ajoute des colonnes feuille taches, modfie le format des cellules Temps et verrouille la plage colonnes A-J et % sauf temps add pour eviter les doigts baladeurs

tomafou · Answer

Bonjour,

oui bien sur, j'attendais votre retour justement.

Je viens de télécharger votre fichier et malheureusement j'ai un message d'erreur quelque soit le bouton "démarrer" ou "Arrêter" sur lequel je clique.
La fenetre VBA s'ouvre et un pop-up m'indique :
"Erreur de compilation : Type défini par l'utilisateur non défini."
Quand je ferme le pop-up, la ligne de code "NextTick As DateDate" est surlignée.
'https://forum.excel-pratique.com/excel/associer-une-forme-a-une-formule-84506
'Modifie par F894009 le 17/11/2021
'Remplace Time par un comptage seconde pour avoir des heures supperieurs a 24
Option Explicit

Dim NextTick As DateDate

Et quand je ferme la fenetre VBA, le message "Cette commande va arrêter le débogueur" apparait.

Je ne comprends pas non plus votre explication :
Remplace compteur heure Time par un compteur de seconde. : Où ça ? En B8 Feuille "Projet" ?
De ce fait, ai ajoute des colonnes feuille taches, modfie le format des cellules Temps  : Ca ok, je vois les modifs.
 verrouille la plage colonnes A-J et % : On parle bien des cellules en de la Feuille "Projet" ? Dans ce cas, pourquoi je n'arrive pas à sélectionner une cellule d'un colonne après J ?
Comment faire pour enlever ce verrouillage (si j'ai besoin de modifier le fichier) ?

Aussi quand je ferme le fichier, je n'ai pas de message me demandant si je veux enregistrer les modifications.

Merci pour votre aide et bonne journée,

tomafou · Answer

Merci pour votre retour rapide.

Effectivement, avec la correction du code, ça fonctionne beaucoup mieux ! Merci !

Par contre, j'ai un pop-up quand je clique sur le bouton "Arrêter" or j'aurai aimé que ce soit sur les boutons "Réinit." pour être sûr de ne pas réinitialiser le timer par erreur.

Pour la protection de la feuille, je me suis mal exprimé mais effectivement j'avais cliqué sur "ôter la protection" mais je ne connais pas le mdp. Ou alors, j'ai loupé l'info et dans ce cas, je m'en excuse.

Et comment faire pour avoir la confirmation d'enregistrement à la fermeture du fichier ?

f894009 · Answer

Re,

sur les boutons "Réinit."
Erreur de ma part, mais facile pour vous de modifier, non.

MDP: toma

confirmation d'enregistrement à la fermeture du fichier ?
Actuellement l'enregistrement se fait automatiquement sur fermeture du fichier et a chaque arret temps sans demande de confirmation

Vous savez faire des Mise en Forme Conditionnelle pour des cellules?

J'ai trouve pour la protection feuille.
Je modife le fichier pour protection

Suite:
Vous avez une Mise en Forme Conditionnelle pour J2 et J10, a vous de faire les autres
 https://www.cjoint.com/c/KKxkVIh1UDf

tomafou · Answer

Alors j'ai trouvé dans VBA où se cache le code du pop-up d'avertissement (Modules/MFonction_MSG) mais je ne trouve pas dans le code comment changer la cible.

confirmation d'enregistrement à la fermeture du fichier ?
Actuellement l'enregistrement se fait automatiquement sur fermeture du fichier et a chaque arret temps sans demande de confirmation 
Ok, je pense que ça peut m'aller comme ça. Je suppose que l'enregistrement automatique est dans le code ? (si jamais je veux modifier)

Vous savez faire de Mise en Forme Conditionnelle pour des cellules? 
Niveau Beginner ! pourquoi ?

tomafou · Answer

Ben dans le code des boutons Arret, voir post <21>!! 
Ok mais je n'ai même pas les bases en code, donc j'ai beau bidouillé des trucs en enlevant/copiant/collant des bribes de codes, je n'arrive pas à l'intégrer au bouton "réinit." !!

l'enregistrement automatique est dans le code ?
Certes, certes 
Et donc ?

f894009 · Answer

Re,

Allez, je vous fais ca.

Suite:
sauvegarde classeur dans VBA ThisWorbook et dans procedure StopClock module Gestion_Temps

fichier modifie pop-up: https://www.cjoint.com/c/KKxqpaFUPif

tomafou · Answer

woooo c'est trop bien !! Un grand merci !

Et la cerise sur le gâteau serait d'avoir une barre de progression dynamique en B5 par rapport au pourcentage indiqué en J2.

f894009 · Answer

Re,
Ok, je regarde la chose

f894009 · Answer

Bonjour,

Cette barre de progression représentera le temps passe par rapport au temps prévu, pas l'avancement du projet

Suite:

Fichier modifie:  https://www.cjoint.com/c/KKzgYS4Ouzf
Changement de couleur fait par MFC

tomafou · Answer

Bonjour,
merci pour le fichier mais je ne comprends pas, la barre ne se remplit pas en fonction du degré d'avancé du projet (temps passé vs. temps prévu). 
En modifiant le rapport tps passé/tps prévu, j'ai juste vu qu'elle changeait de couleur.
Est-ce bien le cas ? Ou, est-ce un "bug"?

J'ai aussi modifié les MFC car les conditions n'étaient pas logiques pour moi.
En gros 0%-95% = vert (estimation du temps juste)
95%-99% = orange
100% et + = rouge (mauvaise estimation, temps dépassé)

Mais cette MFC peut très bien être en J2 puisqu'on à le % qui y est inscrit.

Pour la barre de progression, il faudrait qu'elle s'étale de B5 à J5. B5 étant 0% et J5 100%.

Je viens de trouver ce lien pour faire une barre de progression en détournant un graphique :
https://www.bonbache.fr/barre-de-progression-dynamique-avec-excel-721.html

J'ai appliqué la procédure sur mon tableau et j'ai réussi à avoir une barre qui évolue en fonction du % en J2.
Par contre, je ne sais pas comment faire pour la dimensionner correctement. Quand j'utilise les poignées du cadre, tout se déforme "uniformément". Si je dimensionne le cadre au format de la ligne B5-J5, la barre de progression s'amincit au point de ne plus être visible.
A l'inverse si je dimensionne le cadre pour que la barre de prog. soit à la bonne taille, le cadre "déborde" sur les cellules inférieures et si je veux modifier le temps estimé, c'est le cadre de la barre de prog. qui est sélectionné...

Autre point, si je souhaite que cette barre affiche un code couleur en fonction du %, je ne vois pas comment faire autrement que de créer une première barre pour une progression de 0 à 95%, puis une 2e de 95 à 99% et une 3e pour 100% et +.

J'ai fait le test (barres en B6), ça fonctionne (je vous laisse modifier les temps additionnels pour augmenter/diminuer le %) mais 1/ça reste du bricolage, 2/ c'est la galère à bien caler pour que ça soit homogène et alligné, et 3/il y a ce problème du cadre qui déborde.

Je vous laisse le fichier et j'attends votre avis :
https://www.cjoint.com/c/KKzjmcInQAr

f894009 · Answer

Re,

projet (temps passé vs. temps prévu).
Ben, chez moi ca marche

degré d'avancé du projet
Non, c'est lie au temps passe sur le projet.
L'avancee projet c'est le nombre de taches terminees

je vous laisse modifier les temps additionnels
Ah bon!

tomafou · Answer

projet (temps passé vs. temps prévu).
Ben, chez moi ca marche
Etrange...

degré d'avancé du projet
Non, c'est lie au temps passe sur le projet.
L'avancee projet c'est le nombre de taches terminees
Pas vraiment, une tâche peut être incomplète alors que le temps passé sur le projet est à 100%. 
Par exemple, j'ai pu estimé 3h de réunions et n'en faire qu'une donc j'ai un solde de 2h. Et avoir passer 2h de plus que prévu sur une autre tâche. Au final, j'arrive à 100% du temps et pourtant j'ai une tâche sur-estimée (donc incomplète) et une tâche sous-estimée (donc temps dépassé).
Le % en J2 est fonction du rapport Temps passé vs. Temps estimé. C'est d'ailleurs pour cela qu'il dépasse 100% si le temps passé est supérieur au temps estimé.
Donc pour moi, J2 illustre l'avancée du projet et la barre de progression également.

je vous laisse modifier les temps additionnels
Ah bon!  
Vous m'avez mal compris, je vous laisse modifier pour que vous puissiez voir l'évolution de la barre que j'ai réalisé.

f894009 · Answer

Bonjour,

Ai trouve pour barre progression projet.
La longueur de la barre se fait par code, pas par la modification cellules tems estime.
Si cela vous interesse, je modifie.

Mea culpa, a la suite de mise a jour, j'ai vire le code qui met a jour la barre projet

tomafou · Answer

Bonjour,

oui bien sur, ça m'intéresse toujours !

L'astuce que j'ai faite avec les graphiques en barres n'était pas convenable ?

f894009 · Answer

Re,

L'astuce que j'ai faite avec les graphiques
Ben oui, j'ai vu, ai un peu mal aux yeux..

Vous voulez des barres a quels endroits en dehors de Projet

tomafou · Answer

Une seule barre, là où elle est actuellement donc de B5 à J5. Comme on en parle depuis le début.

f894009 · Answer

Re,

Fichier modifie:  https://www.cjoint.com/c/KKAqtNriw3f

Pour changer les parametres de la "barre", voir Procedure Barre module Progress
Police de la cellule B5 fusionnee: Windings 11

tomafou · Answer

Bonjour,

excusez-moi du retard, je n'ai pas vu votre message depuis vendredi.

Merci pour le fichier, par contre, j'ai l'impression que ça ne fonctionne toujours pas de mon côté.
Que je sois à 0% ou à 48,7 ou 100, la barre n'évolue pas...

f894009 · Answer

Bonjour,

j'ai l'impression que ça ne fonctionne toujours pas

tomafou · Answer

j'ai l'impression que ça ne fonctionne toujours pas ...de mon côté !!

f894009 · Answer

Bonjour,

Pouvez faire une recopie d'écran et la mettre dans un post pour montrer la chose
Vous utilisez le fichier que j'ai mis a dispo?

tomafou · Answer

Bonjour,

oui j'utilise bien votre dernier fichier.

ci-joint:


A ce sujet, j'ai remis à zéro tout les temps additionnels et tous les compteurs de tâches afin d'être à 0% (=lancement de projet).

Test 1 : 
La barre de progression est toujours à 100% et en vert.
Le %global (en J2) indique 0.1% alors que ça devrait être 0,0%.

Test 2 : 
J'ai remarqué qu'en E13 le temps indiqué est au format DATE et non heure. 
J'ai supprimé le contenu et remplacé par 05:00:00. La barre s'est effacée.
Par contre, le "Temps Projet" (B8) indique 0:03:59 alors que tous les compteurs sont à 0. 
Idem pour le % en J2, il indique 0.3%.
Dans la feuille "Tâches", tous les compteurs Seconde/Heures/T_Add sont également à 0. Pourtant C10 indique 00:03:59...??
D'ailleurs B10 et D10 ont une formule (=SOMME), du coup j'ai modifié C10 avec la même logique de formule : =SOMME(C2:C7). C10 s'est mis à 0.
Retour en feuille "Projet", le temps (B8) et le % (J2) sont actualisés à 0 et 0,0%.

J'ai fait un 3e test avec ces modifications en renseignant que des temps additionnels.
Les % des Tâches ainsi que le % global (J2) s'actualisent correctement.
Par contre, la barre de progression reste à 0.

Je vous laisse le fichier au cas où :
https://www.cjoint.com/c/KKEiyoMlaKr

f894009 · Answer

Re,

Vu.
Si mise a jour manuelle dans tache et temps add, pas de rafraichissement de la barre de progression
Par contre, rafraichissement au premier demarrer

Je regarde la chose

Pouvez me rappeler ce que doit faire lebouton reinit par tache?

tomafou · Answer

Oui, je me suis dit qu'il y avait peut-être des "liaisons" entre le code VBA et certaines cellules et/ou formules.
J'ai effectivement écrasé quelques cellules pour faire mes "tests" donc j'ai peut-être brisé le code. Je ne sais pas.

Les boutons "Réinit." permettent de remettre à zéro le "Temps Tâche". C'est pour cela qu'il y a un bouton "Réinit." par tâche. Bouton pour lequel on a prévu une "sécurité" avec le pop-up qui apparait pour confirmer l'action.

Petit rappel au cas où :
Le projet est composé de 6 tâches.
Pour chacune d'elle, il est possible de :
- Modifier B10 et E10 (texte)
- Renseigner E13 (temps estimé) au format heure
- Lancer le timer (bouton "Démarrer")
- Arrêter le timer (bouton "Arrêter")
- Rajouter du temps supplémentaires (bouton "Temps additionnel" -> renvoi à Feuille "Temps Add.")
- Réinitialiser le timer (bouton "Réinit.")
Pour la Tâche 1, par exemple, J10 indique en pourcentage l'avancée de la tâche (temps passé) par rapport au temps estimé.

B8 (Feuille Projet) = cumul. des "Temps tâche" (B13+B21+B29+B37+B45+B53)
E8 (Feuille Projet) = cumul des "Temps estimé" (E13+E21+E29+E37+E45+E53)
J2 (Feuille Projet) = pourcentage de l'avancée du projet (temps passé) par rapport au temps estimé.
B5-J5 (Feuillet Projet) = barre de progression dynamique indexée à J2.

EDIT : En reprenant votre dernier fichier pour rédiger mon rappel, je viens de m'apercevoir que la barre de progression est désormais fonctionnelle...!!
Je viens de faire un test : Tâche 1 à 00:01:00 et toutes les autres tâches à 00:00:00.
Démarrage du timer : les pourcentages (J10 et J2) ainsi que la barre fonctionnent.
Arrêter du timer : tout s'arrête.
Relance du timer : tout redémarre.
Réinitialisation timer : La barre ne s'actualise pas sauf si...
...Redémarrage du timer : La barre s'actualise.

f894009 · Answer

Re,

Ok, je regarde pour bouton init, le temps tache n'est remis a zero systematiquement

tomafou · Answer

Bonjour,

Je me permets de venir aux nouvelles.

Merci et bonne journée,

f894009 · Answer

Bonjour,
Permission accordée

f894009 · Answer

Re,
Le temps tache est le temps ecoule plus le temps Add.
Si init, le temps add doit passer a zero ou pas?

tomafou · Answer

non

f894009 · Answer

Re,

Ben, vous etes servi

tomafou · Answer

?????

f894009 · Answer

Re,

Ah oui, j'oubliais la fameuse barre de progression
Je vais regarder la chose demain

f894009 · Answer

Bonjour,

Fichier modifie pour barre de progression
https://www.cjoint.com/c/KLjgFpnOGFf

tomafou · Answer

Bonjour et merci.

Pourquoi E13 est au format date ? Alors que les autres cellules 'Temps estimé' sont au format heure.

J'ai fait deux tests sur la Tâche 1,  temps estimé à 1min.
Test 1 :
Démarrage du Timer et Arrêt à 10sec. -> 16.7% (J2)
Réinitialisation du timer. -> le Temps Projet (B8) et le pourcentage (J2) ne s'actualisent pas -> 0:00:10 et 16.7% toujours affichés (non actualisés à 0:00:00 et 0%)
Démarrage du Timer -> J2 repasse à 0% dès la première seconde.

Test 2 :
Démarrage du Timer et Arrêt à 10sec. -> 16.7% (J2)
Ajout Temps additionnel +30sec. soit un temps projet à 40sec. au total -> 0:00:40 (B8) et 66.7% (J2)
Réinitialisation du timer. soit -10sec. -> le Temps Projet (B8) et le pourcentage (J2) ne s'actualisent pas -> 0:00:40 et 16.7% toujours affichés (non actualisés à 0:00:30 et 50%)
Démarrage du Timer -> B8 et J2 s'actualisent.

tomafou · Answer

Bonjour,

Feuil! Temps Add. : 
- Pourquoi certaines heures passent en rouge dès 1sec. de temps additionnel ?

Feuil! Projet : 
- Cette fois c'est E21 qui est passé au format date (temps estimé à plus de 24h). Edit : en fait, c'est toutes les cellules dépassant 24h).

- Si j'écrase une cellule "temps estimé" par "0", un message VBA m'indique : "Erreur d'exécution '13": Incompatibilité de type" puis j'ai le choix entre "Fin" et "Débogage". Est-ce normal ? Et si oui, que dois-je faire ? Fin ? ou, Débogage ?

- Pour renseigner un temps estimé, on est d'accord qu'il faut taper textuellement "1" "2" ":" "3" "0" ":" "0" "0" (pour 12:30:00) ? Ou est-il possible d'inscrire un temps dans un format horaire "bâtard" : 12,5 ou 12h30 ou 12.30 ?

Sinon, l'actualisation de J2 et B8 fonctionne parfaitement maintenant. Merci.

f894009 · Answer

Re,

Feuil! Temps Add. :
Vous connaissez Excel et les MFC?
Vous saurez de ce fait "pourquoi elle est rouge la carotte"

Feuil! Projet :
Oui, les cellules changent de format si au dela de 24h. Comme ecrit post <64>, pas de probleme au niveau des calculs vu que c'est Excel qui change le format 

on est d'accord qu'il faut taper textuellement "1" "2" ":" "3" "0" ":" "0" "0" 
Pas du tout , il faut entrer en format Heure:  01:01:01

tomafou · Answer

Vous connaissez Excel et les MFC? Vous saurez de ce fait "pourquoi elle est rouge la carotte" Je veux bien ne pas être un cador sur Excel, chacun ses compétences, mais merci de ne pas non plus me prendre pour un ***. Avant de vous poser la question, je suis allé voir la règle de MFC et j'ai bien compris que dès que la "Valeur de la cellule >0", la cellule devient rouge. D'où ma remarque "dès 1sec. de temps additionnel" !! Le "Pourquoi" de ma question signifie 1/ Pourquoi jugez-vous utile que la cellule change de couleur dès 1sec. ? 2/ Pourquoi avoir pris cette liberté ? Oui, les cellules changent de format si au dela de 24h. Comme ecrit post <64>, pas de probleme au niveau des calculs vu que c'est Excel qui change le format J'avais bien lu votre réponse sur le post <64> !! Donc, il n'a pas la possibilité de forcer Excel à conserver le format Heure au-delà de 24h ? Oui ou non ? on est d'accord qu'il faut taper textuellement "1" "2" ":" "3" "0" ":" "0" "0" (pour 12:30:00) ? Pas du tout , il faut entrer en format Heure: 01:01:01 Oui donc c'est ce que j'ai écrit !! Chaque sigle entre guillemets correspond à une frappe clavier, donc en l’occurrence on est sur le format que vous reprenez : 12:30:00 !! A cela, vous ne répondez pas à ma question : Ou est-il possible d'inscrire un temps dans un format horaire "bâtard" : 12,5 ou 12h30 ou 12.30 ? Oui ou non ?

f894009 · Answer

Re,

ne pas non plus me prendre pour un ***.
Je ne prends rien, je laisse. Maintenant si vous n'aimez pas le second degres, dommage.

Oui ou non ?
Ben non, sur une saisie sans controle VBA, il faut entrer au format attendu

 Pourquoi avoir pris cette liberté ?
Ce n'est pas une liberte, c'est le moyen de voir dans quelle cellule il y un temps de saisie. Si cela vous gene enlevez la MFC

Maintenant ma liberte est de continuer a vous aider ou pas

tomafou · Answer

Toute la subtilité du 2nd degré réside dans sa justesse. Et à l'écrit, la limite est d'autant plus fragile. Bref, ce n'est pas le débat.

Vous voyez, avec un peu plus d'explications tout devient compréhensible ! (2nd degré...ou pas... ;) )

Reste donc un problème selon moi : <Post67> "- Si j'écrase une cellule "temps estimé" par "0", un message VBA m'indique : "Erreur d'exécution '13": Incompatibilité de type" puis j'ai le choix entre "Fin" et "Débogage". Est-ce normal ? Et si oui, que dois-je faire ? Fin ? ou, Débogage ?"

A vous de voir si vous souhaitez continuer ce projet jusqu'au bout ou pas. Quoiqu'il advienne, je suis reconnaissant pour toute votre aide.

f894009 · Answer

Re,

Si j'écrase une cellule "temps estimé" par "0",
Chez moi pas d'erreur si les autres cellules ne sont pas a 0.
Mais si toutes les cellules sont a 0, la, erreur division par 0 a cause de la cellule J2 qui est en erreur.
Il suffit de modifier la formule en J2 avec un SIERREUR et une petite modif dans la procedure Barre
D'ailleurs vous devez voir que les cellules % par tache sont en erreur si vous entrez 0. Donc meme modif formule

tomafou · Answer

Bonjour,

En J2, c'est inscrit la formule : =SIERREUR((B8/E8);0)
Je pense que c'est correct car J2 est bien à 0% quand tous les temps estimés sont à 0:00:00.
Idem pour les autres cellules % des tâches.

A ce sujet, j'ai remarqué que J10, J18, J26 ont la formule : =B13/E13, en divise le temps tâche par le temps estimé en Feuil!Projet.
Par contre, la cellule J34 va pointer sur la Feuil!Taches avec la formule : =Taches!G8/Taches!G9.
Idem pour J42 et J50. Est-ce qu'il y a une logique à cette différence ?
SIERREUR fonctionne aussi bien avec "=SIERREUR((Taches!G8/Taches!G9);0)" qu'avec "=SIERREUR((B37/E37);0)

Par contre, pour faire la modif dans la procédure Barre, je ne sais pas où agir et que faire.

Merci et bonne journée,

f894009 · Answer

Bonjour,

 Est-ce qu'il y a une logique à cette différence ?
Oui

=Taches!G8/Taches!G9.: C'est votre formule, 

=B13/E13: C'est une autre de mes libertes.

Pourquoi aller chercher ailleurs ce qui est devant vous. 
Si vous voulez changer, pas de probleme

je ne sais pas où agir et que faire.
Ben, y a rien a faire vu qu'avec les formules modifiees il n'y a pas d'erreur (ce dont je n'etai pas sur)

Pour les heure avez vous besoin des secondes. Cela vous serait plus simple cote saisie: 12:00 et a l'affichage en haut restera le format heure normale: 00:00:00

Si vous voulez saisir sous un autre format, il vous faut definir une codification du genre post <69> et vous y tenir
Ce type de format ne peut etre traite qu'avec du VBA

Il y avait une chose tres simple pour une heure max 23:59:59 mais pas pour au dessus

Le comptage de temps peut se faire aussi a la minute

Maintenant, c'est vous le maitre des horloges

tomafou · Answer

Bon et bien c'est parfait ! Il ne me reste plus qu'à faire un peu de cosmétique.

Merci beaucoup pour toute votre aide et...votre humour ! ;)

Bonne continuation à vous !

tomafou · Answer

Bonsoir,

Je viens de découvrir un "bug".

Lorsque le fichier est ouvert et que le timer tourne, si j'ouvre un fichier un message VBA m'indique : "Erreur d'exécution '9": L'indice n'appartient pas à la sélection" puis j'ai le choix entre "Fin" et "Débogage". 

Cela n'apparait pas si :
- Le timer n'est pas lancé
- J'ouvre un nouveau fichier excel
- Si c'est un format .xlsx

f894009 · Answer

Bonjour,
Je viens de découvrir un "bug". 

Non, c'est tout a fait normal.
Les deux fichiers sont ouvert dans la meme intance d'Excel.
De ce fait, il y a conflit puisque le classeur de comptage n'est plus actif
Je vais regarder la chose, j'ai une idée qui ira peut-être

Suite:
Ouvrez la fenetre VBA
Ouvrez un module
Faites une recherche avec Worksheets
Devant chaque Worksheets, ajoutez ThisWorbook., ce qui permet de continuer l'execution du code dans le classeur de comptage

tomafou · Answer

Bonjour,

merci pour l'explication.

J'ai essayé de suivre votre procédure mais ça ne fonctionne pas.
J'ai déroulé le dossier "modules" sur la gauche dans VBA.
J'ai ouvert le 1er et j'ai fais un ctrl+F pour lancer une recherche avec "worksheets".
1er module "MConver_HH_MM_SS" : terme introuvable

2e module "MDeclaration_VP" : terme introuvable

3e module "MFonction_MSG" : terme introuvable

4e module "MGestion_Temps" :  2 termes trouvés. Formules modifiées comme suit :
Sub StartTime()
    'PreviousTimerValue = ThisWorbook.Worksheets("Taches").Range("B" & RCel).Value
    Call ExcelStopWatch
End Sub
Dim TSeconde As Long, Heures As String, TT As Long
    
    DoEvents
    With ThisWorbook.Worksheets("Taches")

5e module "Module1" :  1 terme trouvé. Formules modifiées comme suit :
Private Sub ThisWorbook.Worksheet_Change(ByVal Target As Range)
mais la ligne passe en rouge.

6e module "MProgress" :  1 terme trouvé. Formules modifiées comme suit :
Sub Barre()
    With ThisWorbook.Worksheets("Projet")
        x = .Range("J2")

Je ferme VBA, je lance un timer et VBA se réouvre avec le message ATTENTION " Erreur de compilation: Attendu : fin d'instruction" et le module "Module1" est visible avec la ligne de code toujours en rouge.

Je pense qu'il y a qqch que je fais mal mais ne connaissant pas les rouages de VBA, je ne sais pas où agir...

f894009 · Answer

Re,

Je vais vous arranger la chose avec quelques modif en plus pour saisie heure:minute seulement ex: 5420 qui donnera 54:20 pour un temps estime. Il n'y aura pas possiiblite de 54,5 pour 54:30 car la zone de saisie sera  formatee __:__.
Vous aurez a  depasser les 99 h?

tomafou · Answer

Merci c'est sympa !

Ok pour la saisie de l'heure. De toute façon, si je saisi pas le bon format, je pense que ça affichera une erreur ?

Oui, les projets peuvent dépasser les 99h.

f894009 · Answer

Re,

Projet plus 99 h, je sais deja, mais temps estime par tache?

tomafou · Answer

oui aussi

f894009 · Answer

Re,

Fichier modifie:  https://www.cjoint.com/c/KLqpvS63F1f
Affichage heures: [h]:00
Controle saisie Temps Estime: voir encadrer

tomafou · Answer

non je ne pense pas dépasser les 999h par tâches.
Et si c'est le cas, je ferais un doublon de tâches.

Merci pour le nouveau fichier.

Effectivement, ça marche mieux quand c'est vous qui touchez au code! 
Je peux ouvrir d'autres fichiers sans qu'il y ait de problème. Merci.

Pour le format heure, pas de soucis.

Par contre, est-il possible d'avoir les secondes dans les "Temps tâches" ? C'est un bon repère visuel pour savoir si le timer est démarré ou non.

Également, si je rentre un temps estimé de 1minute (0:01), et que je lance le timer celui-ci indique directement 0:01:00 dans le "Temps tâche" et le pourcentage passe directement à 100% dès la 1ère seconde.

2e essai, Tps estimé de 1minute, je lance le timer qui démarre d'office à 1minute (donc 100%), j'arrête le timer dans la foulée et je le relance : le temps Tâche prend +1min. et cela se reproduit à chaque fois que je cliques sur Arrêter / Démarrer.

f894009 · Answer

Bonjour,

Ok, je rectifie

f894009 · Answer

Re

Fichier modifie:  https://www.cjoint.com/c/KLrhtSNxAFf

Temps chronos en seconde
Ai mis un peu de couleur
Ai modifie le code des boutons D/A/Init

Pour le changement de couleur bouton Demarrer, il y a un petit clignotement sur arret, si genant je vais voir a corriger

tomafou · Answer

Bonjour,

Merci pour les secondes et le changement d'état du bouton "Démarrer" en "Comptage".

Par contre, les couleurs ne me conviennent pas. Mais comment faire pour changer la couleur du bouton "Comptage" ? Je sais le faire pour "Démarrer ", "Arrêter", "Temps add." et "Réinit." via les propriétés du bouton en "Mode Création". Mais je ne vois pas où le faire pour "Comptage".

Pour le changement de couleur bouton Demarrer, il y a un petit clignotement sur arret, si genant je vais voir a corriger  
Je ne vois pas de clignotement de mon côté, donc je pense que tout est ok.

tomafou · Answer

C'est parfait ! Merci !
Cette fois je pense qu'on est bon...!

[Excel] Time Tracker Projets : Un timer par tâche

83 réponses

Votre réponse

Newsletters