Méthode Application.LinkTasksEdit (Project)

Article
04/07/2023

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.

Partager via