Attribuer couleurs différentes selon ressource

Bonjour,

J'aurais souhaité affecter une couleur à chaque ressource de mon projet.
Dans le suivi de Gantt, je souhaiterais que le format des cellules de la colonne "Noms ressources" change en fonction de la ressource sélectionnée.

J'ai essayé de développer une macro vba qui affecterait une couleur selon la valeur de la cellule "Noms ressources" mais je n'arrive pas à atteindre les valeurs des cellules. J'ai tenté d'accéder à la valeur par un MsgBox mais la commande .Value n'est pas reconnue.

Code:

---

1 2	SelectTaskField Row:=3, Column:="Noms ressources", rowrelative:=False MsgBox(Selection)

---

Le MsgBox n'affiche rien.

Quelqu'un pourrait-il m'aider ?

Merci d'avance,

Hello,

Il n'y a pas grand monde sur ce forum,non?

Bon alors voici ce que je ferais.

Msproject est une collection de données.
Donc pour selectionner la donnée sur laquelle on se trouve:

Code:

---

tache=activecell.tasks

---

ensuite, on détermine la valeur qui se trouve dans l'item "nom ressource"
Pour trouver l'intitulé de cette colonne, on place la souris en haut, sur le titre de la colonne et il affiche dans une bulle le nom de la colonne exemple: text4
donc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

select case(tache.text4)   'et on donne les choix possibles case ("Dupond") 'mettre en vert   case ("Durant") 'mettre en bleu   case else 'autres cas 'mettre en noir   end select

---

Pour changer les couleurs et formats, je cherche encore.

A plus
Christophe

Finalement j'ai réussi à me dépêtrer même si le code paraît un peu lourd pour ce que c'est. Je le poste si ça intéresse quelqu'un.

Code:

---

1 2 3 4 5 6 7

taches=ActiveProject.Tasks.Count For i=1 to taches If Instr(1,ActiveProject.Tasks(i).ResourceNames, "Nom de ma ressource", vbTextCompare)<>0 Then SelectTaskField Row:=i, Column:="Noms ressources", rowrelative:=False FontEx CellColor:=1 End If Next i

---

Merci Christophe en tout cas pour ta réponse, je pense que j'aurais pu faire moins compliqué avec ta solution.

Super POYE !
Une fonctionnalité supplémentaire que je manquerai pas de communiquer auprès de mes clients.
Merci à toi

Et bien moi j'ai un vrai probleme car ce code pour changer les couleurs ne fonctionne pas.

Fontex est meme inconnu dans mon MSProject 2003

Je n'arrive pas à faire une chose aussi simple que de changer une couleur de texte. Meme en passant par l'enregistreur de macro.

Je bute la dessus!

Cela vient un peu tard :mouarf:, mais bon, il est toujours bon d'avoir une conversation qui s'achève avec un résultat qui marche :

Code:

---

1 2 3 4 5 6 7 8 9

Sub coul_ressources() taches = ActiveProject.Tasks.Count For i = 1 To taches If InStr(1, ActiveProject.Tasks(i).ResourceNames, "Nom de la ressource_ici", vbTextCompare) <> 0 Then SelectTaskField Row:=i, Column:="Noms ressources", rowrelative:=False Font Color:=1 End If Next i End Sub

---

Bonjour,

Désolé de déterrer ce sujet, mais j'ai tenté d'utiliser ce code sous MS Project 2010 et cela ne fonctionne pas, le code bloque à la ligne du If.

Ma ressource "CP" semble poser le problème, j'ai 5 ou 6 ressources différentes et j'aimerais avoir une couleur de tâche pour chaque. Quelqu'un peut-il m'indiquer d’où viendrait mon erreur ou bien une solution qui répondrai à mon besoin.

Merci pour votre aide :)


Voici le code de ma macro:

Sub tache_couleur()

taches = ActiveProject.Tasks.Count
For i = 1 To taches
If InStr(1, ActiveProject.Tasks(i).RessourceNames, "CP", vbTextCompare) <> 0 Then
SelectTaskField Row:=i, Column:="Noms Ressources", rowrelative:=False
Font Color:=1
End If
Next i

End Sub

Bonjour à tous,

Y a t'il un pilote pour m'aider à sauver mon planning ? D'avance merci :)

Salut,

un copier/coller loupé...

sur la ligne

Code:

---

If InStr(1, ActiveProject.Tasks(i).RessourceNames, "CP", vbTextCompare) <> 0 Then

---

.ResourceNames avec un seul s..... anglais oblige !

Curt