Partager via


Méthode Task.LinkSuccessors (Project)

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.