Propriété Task.Summary (Project)
Cette propriété a la valeur True si la tâche est une tâche récapitulative. Boolean (en lecture seule).
Syntaxe
expression. Résumé
Expression Variable qui représente un objet Task .
Exemple
L’exemple suivant vérifie si les tâches récapitulatives du projet actif ont des affectations.
Remarque
Les affectations ne doivent pas porter sur des tâches récapitulatives.
Sub CheckAssignmentsOnSummaryTasks()
Dim tsk As Task
Dim message As String
Dim numAssignments As Integer
Dim numSummaryTasksWithAssignments As Integer
Dim msgStyle As VbMsgBoxStyle
message = ""
numSummaryTasksWithAssignments = 0
For Each tsk In ActiveProject.Tasks
If tsk.Summary Then
numAssignments = tsk.Assignments.Count
If numAssignments > 0 Then
message = message & "Summary task ID (" & tsk.ID & "): " & tsk.Name _
& ": " & numAssignments & " assignments" & vbCrLf
numSummaryTasksWithAssignments = numSummaryTasksWithAssignments + 1
End If
End If
Next tsk
If numSummaryTasksWithAssignments > 0 Then
message = "There are " & numSummaryTasksWithAssignments _
& " summary tasks that have assignments." & vbCrLf & vbCrLf & message
msgStyle = vbExclamation
Else
message = "No summary tasks have assignments."
msgStyle = vbInformation
End If
MsgBox message, msgStyle, "Summary Task Check"
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.