Bonjour ayoros,
Une macro fera l'affaire. Quelle version de Project utilises-tu? As-tu rentré le code WBS dans le champ WBS de Project?
Je n'ai que Project 2007 sous la main aujourd'hui donc je te propose une solution faite sur celui-ci. Ca devrait marcher aussi pour la dernière version de Project mais pour une raison qui m'échappe, on ne peut pas colorier les cellules en orange sur Project 2007 (j'ai donc mis du rouge).
Voici comment intégrer la macro à Project :
1) Dans Project appuie sur Alt+F11 : la fenêtre Microsoft Visual Basic s'ouvre.
2) A gauche doit s'afficher l'explorateur d'objets (si non, appuie sur Ctrl+R). Dans celui-ci, clique droit sur "ProjectGlobal (Global.MPT) puis "Insertion", "Module". Le module va s'afficher à droite (une grande fenêtre blanche et vide) et va contenir le code de la macro, et le fait de l'avoir créé dans "Global.MPT" va permettre à tous les fichiers ouverts par le MS Project installé de ton ordinateur de l'utiliser!
3) Dans le module que tu as créé, colle le code suivant :
Sub MAF_WBS()
Dim Niveau_WBS As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveProject.Tasks.Count
Niveau_WBS = Len(ActiveProject.Tasks(i).WBS) - Len(Replace(ActiveProject.Tasks(i).WBS, ".", "")) + 1
SelectRow Row:=i, RowRelative:=False
If Niveau_WBS = 1 Then
FontEx Size:="12", CellColor:=1
ElseIf Niveau_WBS = 2 Then
FontEx Size:="10", CellColor:=2
ElseIf Niveau_WBS = 3 Then
FontEx Size:="8", CellColor:=7
End If
Next i
Application.ScreenUpdating = True
End Sub
4) Il ne te reste plus qu'à lancer la macro. Tu peux cliquer sur enregistrer dans la fenêtre "Microsoft Visual Basic" et la fermer. Une fois que tu es de retour sur ton fichier Project à traiter, je t'invite à appuyer sur Alt+F8 pour ouvrir la fenêtre "Macros". Sélectionne ensuite "MAF_WBS" et clique sur "Exécuter".
Si tu m'indiques la version de Project que tu utilises on peut améliorer l'ergonomie (rajouter un bouton directement dans une barre d'outils, utiliser du orange si tu es sur la dernière version de Project, etc.).
Dis-nous si ça fonctionne,
Cordialement
Modifié 2 fois. Dernière modification le 10/08/15 16:15 par OH.
