Méthode Task.LinkPredecessors (Project)
Ajoute un ou plusieurs prédécesseurs à la tâche.
Syntaxe
expression. LinkPredecessors
( _Tasks_
, _Link_
, _Lag_
)
Expression Variable qui représente un objet Task .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Tâches | Obligatoire | Object | Objet Task ou Tasks spécifié qui devient un prédécesseur 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. |
Exemple
L’exemple suivant montre comment demander à l’utilisateur le nom d’une tâche et la transformer en prédécesseur des tâches sélectionnées.
Sub LinkTasksFromPredecessor()
Dim Entry As String ' Task name entered by user
Dim T As Task ' Task object used in For Each loop
Dim I As Long ' Used in For loop
Dim Exists As Boolean ' Whether or not the task exists
Entry = InputBox$("Enter the name of a task:")
Exists = False ' Assume task doesn't exist.
' Search active project for the specified task.
For Each T In ActiveProject.Tasks
If T.Name = Entry Then
Exists = True
' Make the task a predecessor of the selected tasks.
For I = 1 To ActiveSelection.Tasks.Count
ActiveSelection.Tasks(I).LinkPredecessors Tasks:=T
Next I
End If
Next T
' If task doesn't exist, display an error and quit the procedure.
If Not Exists Then
MsgBox ("Task not found.")
Exit Sub
End If
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