Mise en forme conditionnelle sur ms project [Fermé]

Signaler
-
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
-
Bonjour,

je travaille sur ms project 2002 depuis peu et j'aimerai créer une macro de mise une forme conditionnelle. En effet, j'ai 400 tâches répertoriées dans mon projet ( des commandes, des plans à faire, des prises de rdv concernant un planning de chantier) et j'aimerai que le nom des tâches dans la date de début est passé apparaissent en rouge et sinon en vert. j'ai codé la macro suivante mais cela ne fonctionne pas. Pouvez-vous m'aider ?

Dim i As Integer
For i = 1 To 474


If ActiveProject.Tasks(i).Start > Now() Then
SelectTaskField Row:=i, Column:="Nom"
Font Underline:=True
Font Size:="10", Color:=1

Else

Font Underline:=False
Font Size:="10", Color:=9

End If

Next

Merci
Cordialement
Andri


1 réponse

Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
802
Salut le forum

Andri, tu es chanceux car il y a peu de macroteur Ms Project

Ca devrait mieux fonctionner comme ceci (Ms Project 2003 FR)

Sub MFC_Couleur()    
Dim ts As Tasks    
Dim t As Task    

Set ts = ActiveProject.Tasks    

For Each t In ts    
  If Not t Is Nothing Then    
    If t.Start > Now() Then    
      SelectTaskCell Row:=t.ID, Column:="Nom", RowRelative:=False    
      Font Underline:=True    
      Font Size:="10", Color:=1    
    Else    
      SelectTaskCell Row:=t.ID, Column:="Nom", RowRelative:=False    
      Font Underline:=False    
      Font Size:="10", Color:=9    
    End If    
  End If    
Next t    

Set ts = Nothing   

End Sub    

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60925 internautes nous ont dit merci ce mois-ci

Bjr Myta !
J'ai testé ta macro mais elle ne marche pas .. le If Not pose problème et qd je supprime le NOT, une erreur d'exécution 91 fait son apparition ...
Messages postés
2966
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
802
Re le forum

Je ne rencontre aucun problème sous MS-Project 2003

Mytå