Propriété Task.PathDrivingPredecessor (projet)

Obtient une valeur qui indique si la tâche est un prédécesseur qui pilote la tâche sélectionnée, lorsque l’élément Prédécesseurs conducteurs est sélectionné dans la liste déroulante Chemin de la tâche . Boolean (en lecture seule).

Syntaxe

expression. PathDrivingPredecessor

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

Remarques

La propriété Task.PathDrivingPredecessor est liée à l’élément Driving Predecessors de la liste déroulante Chemin de la tâche , sous l’onglet FORMAT , sous les outils du 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é PathDrivingPredecessor n’agit pas comme la sélection Driving Predecessors dans l’interface utilisateur. Au lieu de cela, la propriété PathDrivingPredecessor est True lorsque les deux conditions suivantes sont vraies : (a) la tâche est un prédécesseur moteur de la tâche sélectionnée et (b) l’élément Prédécesseurs moteurs 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 est un prédécesseur moteur 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 Prédécesseurs conducteurs est sélectionnée dans le chemin de la tâche, l’instruction suivante imprime Vrai dans la fenêtre Immédiat de l’objet VBE.

? ActiveProject.Tasks(1).PathDrivingPredecessor

Toutefois, si l’élément Conduire des prédécesseurs 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

Chemin d’accèsChemin de propriété successeurChemin de propriété prédécesseurPropriétésuccesseurPropriété successeur

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.