Discussion :

[base-un]

Bonjour à tous,

J'ai réalisé une petite macro pour descendre toutes les tâches d'un projet, et les "colorier" selon certains critères (bleu en cours, vert terminée ou rouge en retard)

Mon problème est le suivant : La macro semble "sauter" les lignes regroupées et "masquées" .

Je suis sur MS Project 2010.

Avez-vous une idée ? Ou une autre solution ?

Je vous remercie par avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub MFC_Couleur()
Dim ts As Tasks
Dim t As Task
 
Application.ScreenUpdating = False
 
Set ts = ActiveProject.Tasks
 
For Each t In ts
     If Not t Is Nothing Then
        If t.PercentComplete = 100 Then
            SelectTaskCell Row:=t.ID, Column:="Nom", RowRelative:=False
            Font Underline:=False
            Font Size:="10", Color:=9
        ElseIf t.Start < Now() And t.PercentComplete = 0 Then
            SelectTaskCell Row:=t.ID, Column:="Nom", RowRelative:=False
            Font Underline:=False
            Font Size:="10", Color:=8
        ElseIf t.PercentComplete > 0 And t.PercentComplete < 100 Then
            SelectTaskCell Row:=t.ID, Column:="Nom", RowRelative:=False
            Font Underline:=False
            Font Size:="10", Color:=4
        End If
    End If
Next t
 
Set ts = Nothing
 
Application.ScreenUpdating = True
 
End Sub

[GMS_Spoty]

Bonjour,

Pour le problème des tâches masquées, le plus simple serait d'afficher toutes les tâches pour etre sur de toutes les traiter. Tu peux essayer les commandes suivantes :

Code :

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

1
2
FilterApply Name:="Toutes les tâches"                           'On applique le filtre "Toutes les taches"
OutlineShowAllTasks                                             'On developpe toutes les tâches.

Tu auras peut etre besoin de la commande suivante pour t'assurer que la table est bien active :

Code :

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

Application.ActiveWindow.TopPane.Activate

Pour ce qui est du non traitement de tes tâches récapitulatives, je me demande si ça ne vient pas d'un trou dans la gestion de ton If. Tu traites les cas suivants :
- % achevé = 100%
- %achevé = 0% ET Début < Aujourd'hui
- 0< % achevé < 100

Est ce qu'il ne te manquerait pas le cas :
- %achevé = 0% et Début > Aujourd'hui

Tu devrais vérifier que les tâches qui ne sont pas traitées ne correspondent pas à ce critère...
Sinon le plus simple pour toi serais d'utiliser un point d'arrêt bien placé dans ton code et de faire un mode pas à pas pour voir ce qu'il se passe sur la ligne en question.