Partager via


Méthode Application.LinkTasksEdit (Project)

Modifie les dépendances de tâche (liens de tâche).

Syntaxe

expression. LinkTasksEdit( _From_, _To_, _Delete_, _Type_, _Lag_, _PredecessorProjectName_, _SuccessorProjectName_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
From Obligatoire Entier long Long. Numéro d'identification d'un prédécesseur.
Pour Obligatoire Entier long Long. Numéro d'identification d'un successeur.
Supprimer Facultatif Boolean True si Project supprime le lien référencé. La valeur par défaut est False.
Type Facultatif Long Relation entre des tâches qui font l’objet d’une liaison. Il peut s’agir de l’une des constantes PjTaskLinkType. La valeur par défaut est pjFinishToStart.
Lag Facultatif Variant Durée entre des tâches liées, dans l'unité par défaut. Pour spécifier un retard entre deux tâches, utilisez une valeur négative.
PredecessorProjectName Facultatif String Nom du sous-projet d'un projet consolidé qui contient la tâche identifiée avec From. Si vous ne spécifiez pas PredecessorProjectName le projet actif est adopté.
SuccessorProjectName Facultatif String Nom du sous-projet d'un projet consolidé qui contient la tâche identifiée avec To. Si vous ne spécifiez pas SuccessorProjectName le projet actif est adopté.

Valeur renvoyée

Boolean

Exemple

L'exemple suivant montre comment permettre à l'utilisateur d'indiquer une plage de numéros d'identification de tâches et de lier les tâches de la plage de la fin au début. Dans cet exemple, il est supposé que le numéro de la plage est valide, qu'il n'existe pas de tâches en double, de tâches Null, de projets consolidés, etc.

Sub LinkFinishToStart() 
 
    Dim FirstID As String ' The ID number of the first task 
    Dim LastID As String ' The ID number of the last task 
    Dim NextID As Long ' The ID number of the next task to link 
 
    FirstID = InputBox$("Enter the ID number of the first task to link:") 
    If FirstID = Empty Then Exit Sub 

    LastID = InputBox$("Enter the ID number of the last task to link:") 
    If LastID = Empty Then Exit Sub 
 
    ' Convert FirstID from String to Long, then "seed" the loop. 
    NextID = CLng(FirstID) 
 
    Do Until NextID = CLng(LastID) 
        LinkTasksEdit From:=NextID, To:=NextID + 1, Type:=pjFinishToStart 
        NextID = NextID + 1 
    Loop 
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.