mise en forme conditionnelle sur ms project

Question

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


Configuration: Windows XP / Safari 533.4

Mytå · Answer

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)]

Mise en forme conditionnelle sur ms project

1 réponse

Discussions similaires

Newsletters