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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour