Macro Format Tache automatique

Bonjour,

Je suis débutant en VBA (mais j'apprends sur Excel).
Je souhaiterai créer une macro permettant de modifier automatiquement le format d'une tâche (couleur, forme, etc.) en fonction d'un nom qui serait rentré dans un champ personnalisé.

Par exemple : dans le champ personnalisé Text1, si l'utilisateur choisi dans la liste déroulante le 2ème choix, la tâche change de couleur (rouge par exemple).

Si vous aviez déjà ce genre de procédure, pourriez-vous m'envoyer un exemple (que j'adapterai) avec 2 ou 3 explications sur les arguments?

Merci par avance,
:ccool:

YV

Bonjour Yoann,

Si il s'agit de colorer Les barres de gantt, Il y a une solution sans VBA :
1) associer la couleur des barres de gantt à un champs indicateur(1,2,3,4...)
Dans le menu format Style des barres.
2) personnaliser les champs indicateurs avec une formule et une fonction IIF...
Et le tour est joué....

Si vous voulez changer la couleur du texte ou du fond alors : ici on test e le nom de la tâche à vous de jouer

Code:

---

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

SUB COULEUR() Dim oTache As Task For Each oTache In ActiveProject.Tasks If oTache.Name = "CP" Or oTache.Name = "cp" Then SelectTaskField Row:=oTache.ID, Column:="Nom", RowRelative:=False Font Color:=5 Else SelectTaskField Row:=oTache.ID, Column:="Nom", RowRelative:=False Font Color:=9   End If Next End Sub

---

Bonne continuation et si besoin n'hésitez pas
Philippe

Bonjour et merci pour votre réponse,

En fait je ne peux pas utiliser les indicateurs car ils sont de type Booléen alors que dans mes formats de tâches j'ai plusieurs formats différents (au moins 5).

Je vais tester votre code et je vous dirai.

MErci