Propriété Task.PathDrivenSuccessor (Project)

Obtient une valeur qui indique si la tâche est un successeur piloté par la tâche sélectionnée, lorsque l’élément DrivenSuccessors est sélectionné dans la liste déroulante Chemin de la tâche . Boolean (en lecture seule).

Syntaxe

expression. PathDrivenSuccessor

expression Variable qui représente un objet Tâche .

Remarques

La propriété Task.PathDrivenSuccessor est liée à l’élément Successeurs pilotés de la liste déroulante Chemin de la tâche, sous l’onglet FORMAT , sous OUTILS DE DIAGRAMME DE GANTT sur le ruban. Le chemin de tâche est principalement une fonctionnalité de mise en forme dans le client Project, où les tâches dans le diagramme de Gantt ont des couleurs qui dépendent de la sélection de tâche en cours et de la relation entre une tâche spécifiée et la sélection. Dans la figure 1, les éléments Prédécesseurs pilotes et Successeurs pilotés sont sélectionnés dans la liste déroulante Chemin de la tâche . Lorsque vous sélectionnez T3, le diagramme de Gantt montre que T1 est une tâche prédécesseur pilote et T4 est une tâche successeur pilotée.

Figure 1. Utilisation des propriétés de chemin de tâche pour mettre des tâches en surbrillance

La propriété PathDrivenSuccessor n’agit pas comme la sélection Successeurs pilotés dans l’interface utilisateur. Au lieu de cela, la propriété PathDrivenSuccessor est True lorsque les deux conditions suivantes sont vraies : (a) la tâche est un successeur piloté de la tâche sélectionnée et (b) l’élément Successeurs pilotés est sélectionné dans le chemin de la tâche. Vous pouvez sélectionner manuellement une tâche ou utiliser VBA pour sélectionner une tâche, puis utiliser VBA pour case activée si une autre tâche succède à la tâche sélectionnée. Par exemple, si vous sélectionnez la troisième tâche comme dans la figure 1 et que l’option Successeurs pilotés est sélectionnée dans le chemin de la tâche, l’instruction suivante imprime True dans la fenêtre Immediate de VBE.

? ActiveProject.Tasks(4).PathDrivenSuccessor

Toutefois, si l’élément Successeurs pilotés n’est pas sélectionné, l’instruction précédente affiche Faux. Project ne dispose pas d’une méthode VBA permettant de définir des éléments dans la liste déroulante Chemin de la tâche .

Exemple

La macro TestTaskPath sélectionne chaque tâche d’un projet, puis utilise tour à tour les quatre propriétés de chemin d’accès de tâche pour montrer comment les autres tâches sont liées à la tâche sélectionnée.

Option Explicit

Sub TestTaskPath()
    Dim t As Task
    Dim chkTsk As Task
    Dim selectedTaskId As Integer
    
    For Each t In ActiveProject.Tasks
        selectedTaskId = t.ID
        Application.SelectRow Row:=selectedTaskId, RowRelative:=False
            
        If Not (ActiveSelection.Tasks Is Nothing) Then
            Debug.Print
            
            With ActiveSelection.Tasks(1)
                Debug.Print "Selected task ID " & .UniqueID & ", name: " & .Name
            End With
                        
            For Each chkTsk In ActiveProject.Tasks
                If Not (chkTsk.ID = selectedTaskId) Then
                    If chkTsk.PathPredecessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathPredecessor"
                    End If
                    If chkTsk.PathDrivingPredecessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathDrivingPredecessor"
                    End If
                    If chkTsk.PathSuccessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathSuccessor"
                    End If
                    If chkTsk.PathDrivenSuccessor Then
                        Debug.Print vbTab & chkTsk.Name & ": PathDrivenSuccessor"
                    End If
                End If
            Next chkTsk
        End If
    Next t
End Sub

Pour le projet de la figure 1, si les éléments Prédécesseurs, Prédécesseurs moteurs, Successeurs et Successeurs pilotés sont tous sélectionnés dans Chemin de tâche, la macro CheminTâche test a la sortie suivante :

Selected task ID 1, name: T1
    T2: PathSuccessor
    T2: PathDrivenSuccessor
    T3: PathSuccessor
    T3: PathDrivenSuccessor
    T4: PathSuccessor
    T4: PathDrivenSuccessor

Selected task ID 2, name: T2
    T1: PathPredecessor
    T1: PathDrivingPredecessor

Selected task ID 3, name: T3
    T1: PathPredecessor
    T1: PathDrivingPredecessor
    T4: PathSuccessor
    T4: PathDrivenSuccessor

Selected task ID 4, name: T4
    T1: PathPredecessor
    T1: PathDrivingPredecessor
    T3: PathPredecessor
    T3: PathDrivingPredecessor

Valeur de la propriété

VARIANTE

Voir aussi

Objet Task

PathDrivingPredecessor PropertyPathPredecessor PropertyPathSuccessor Property

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.