Partager via

Propriété Project.SpreadPercentCompleteToStatusDate (Project)

  • Article

Cette propriété a la valeur True si les modifications apportées au pourcentage de tâche achevé sont réparties sur la date d’état ou sur la date du jour si la date d’état a la valeur « NC ». Elle a la valeur False si ces modifications sont réparties sur la date d’arrêt calculée de la tâche. Boolean (en lecture/écriture).

Syntaxe

expression. SpreadPercentCompleteToStatusDate

Expression Variable qui représente un objet Project .

Exemple

L’exemple suivant montre comment contrôler la date d’état du projet actif. Si elle n’a jamais été modifiée par rapport à sa valeur par défaut mais que les modifications apportées au % achevé total des tâches sont réparties sur la date d’état, la macro demande la date d’état à utiliser. Si les modifications du pourcentage total d’achèvement de la tâche sont réparties jusqu’à la date d’arrêt calculée de la tâche, la macro demande à l’utilisateur si les modifications doivent être réparties à une date d’état à la place, et, si c’est le cas, demande une date d’état à utiliser.

Sub SpreadPercentComplete() 
 Dim NewStatus As Date, AskToSpread As Long 
 
 With ActiveProject 
 If .StatusDate = "NA" And .SpreadPercentCompleteToStatusDate Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 MsgBox "The status date was set to " & .StatusDate & "." 
 ElseIf .SpreadPercentCompleteToStatusDate = False Then 
 AskToSpread = MsgBox("Should changes to total task percent complete" & _ 
 " be spread to a status date?", vbYesNo) 
 If AskToSpread = vbYes Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 .SpreadPercentCompleteToStatusDate = True 
 MsgBox "The status date was set to " & .StatusDate & "." 
 End If 
 End If 
 End With 
 
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.