Méthode Task.LinkSuccessors (Project)

Article
04/07/2023

Ajoute un ou plusieurs successeurs à la tâche.

Syntaxe

expression. LinkSuccessors( _Tasks_, _Link_, _Lag_ )

Expression Variable qui représente un objet Task .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Tâches	Obligatoire	Object	L’objet Task ou Tasks spécifié devient un successeur de la tâche spécifiée par expression.
Link	Facultatif	Long	Constante qui spécifie la relation entre les tâches liées. Il peut s’agir d’une des constantes PjTaskLinkType. La valeur par défaut est pjFinishToStart.
Lag	Facultatif	Variant	Chaîne qui spécifie la durée du retard entre les tâches liées. Pour spécifier le temps d’avance entre les tâches, utilisez une expression pour Lag qui renvoie une valeur négative.

Valeur renvoyée

Aucune

Exemple

L’exemple suivant crée deux tâches et lie la seconde tâche en tant que successeur de la première.

Sub Link_Successors() 
    Dim SuccessorTask As Task 
    Dim PredecessorTask As Task 
 
    'Activate Task Sheet view 
    ViewApply Name:="Task Sheet" 
 
    ' Create a coupe of tasks 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-2" 
    SetTaskField Field:="Duration", Value:="1" 
 
    RowInsert 
    SetTaskField Field:="Name", Value:="TestTask-1" 
    SetTaskField Field:="Duration", Value:="2" 
 
    'link them 
    Set PredecessorTask = ActiveProject.Tasks("TestTask-1") 
    Set SuccessorTask = ActiveProject.Tasks("TestTask-2") 
 
    PredecessorTask.LinkSuccessors Tasks:=SuccessorTask, Link:=pjFinishToStart 
 
    'delete the tasks 
    PredecessorTask.Delete 
    SuccessorTask.Delete 
End Sub

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.

Partager via