Méthode de calcul par USE CASE dans SharePoint 2010

J’utilise souvent cette méthode pour calculer la charge d’un projet. Comme j’utilise aussi Project Server 2010 je me suis dit qu’il serait sympa d’avoir une liste dans le portail de mon projet.
J’ai donc mis en place assez facilement une liste que vous trouverez ici :

Cette liste est simple :

et repose sur les informations que vous pouvez trouver sur une fiche de Use Case :


Le formulaire de saisie peut être personnaliser avec InfoPath 2010. (Attention : je ne suis pas un designer pro )
Avant :

Après :

Ce cette manière j’ai toujours la charge d’origine dans le portail de mon projet

Comment mettre en couleur le titre d’une tâche

Je gère dans mon Gantt un certain nombre et type de tâche, notamment il m’arrive de faire un planning pour la gestion des anomalies et de certaine tâche de réalisation.

Dans mon cas, ce que je cherche à faire est de coloriser le fond de la cellule du titre si il contient le mot “Anomalie”

Tout d’abord ouvrir Visual Basic Editor :

Ensuite dans le fichier “ThisProject” ajouter le code suivant :

'Déclaration de la classe contenant les évènements de MS Prject
Dim e As New MyEvent

Private Sub Project_Open(ByVal pj As Project)
    'Passage de l'application à la classe d'évènement
    Set e.App = Application
    'Passage du projet en cours à la classe d'évènement
    Set e.Proj = Application.ActiveProject
End Sub

Créer un Module de Class nommé “MyEvent”

Et insérer le code suivant :

'Récupération des évènements sur l'application
Public WithEvents App As Application

'Récupération des évènements sur le projet
Public WithEvents Proj As Project

'---------------------------------------------------------------
'---------------------------------------------------------------
'
' Methode permettant d'effectuer des actions
' avant la modification d'une tâche, dans cet exemple
' je colori la ligne si dans le titre le mot 'Anomalie' est trouvé
'
'---------------------------------------------------------------
'---------------------------------------------------------------
Private Sub App_ProjectBeforeTaskChange(ByVal t As Task, ByVal Field As PjField, ByVal NewVal As Variant, Cancel As Boolean)
    If (Field = pjTaskName) Then
        If NewVal Like "*Anomalie*" Then
            ActiveCell.CellColor = pjRed
        Else
            ActiveCell.CellColor = pjWhite
        End If
    End If
End Sub

Maintenant enregistrer le fichier, fermer MS Project et réouvrir MS Project et le projet en question. Ajouter une tâche contenant le mot “Anomalie” et regarder le résultat:

PsTFS - Version disponible

La version est disponible sur codeplex avec ajout des indicateurs :



Gestion des indicateurs également dans PsTFS Web for mobile: