Partager via

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.

  • Last updated on