Discussion :

[Yoann1984]

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,


YV

[phil au vent]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Yoann1984]

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