Partager via


Propriété Task.WBSuccessors (Project)

Obtient les codes de structure de la répartition du travail (WBS, Work Breakdown Structure) des successeurs, séparés par le séparateur de liste. String en lecture seule.

Syntaxe

expression. WBSSuccessors

Expression Variable qui représente un objet Task .

Exemple

L’exemple suivant montre comment demander un numéro de tâche à l’utilisateur et fournir une répartition plus conviviale des codes WBS des successeurs de la tâche en question.

Sub EnumerateSuccessors() 
 Dim Task As Task 
 Dim SuccTasks As Tasks 
 Dim ID As Long 
 Dim Successors As String 
 Dim List As String 
 Dim Count As Integer 
 
 ID = CLng(InputBox$("Enter the ID number of the task you wish to examine:")) 
 
 Set Task = ActiveProject.Tasks(ID) 
 Set SuccTasks = Task.SuccessorTasks 
 Successors = Task.WBSSuccessors 
 Count = 1 
 
 If SuccTasks.Count = 0 Then 
 List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no successors." 
 Else 
 List = "Successors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf 
 Do While InStr(Successors, ListSeparator) <> 0 
 List = List & SuccTasks(Count).Name & ": " & Mid$(Successors, 1, InStr(Successors, ListSeparator) - 1) & vbCrLf 
 Successors = Right$(Successors, Len(Successors) - InStr(Successors, ListSeparator)) 
 Count = Count + 1 
 Loop 
 List = List & SuccTasks(Count).Name & ": " & Successors 
 End If 
 
 MsgBox List 
 
 Set SuccTasks = Nothing 
 Set Task = Nothing 
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.