Propriété Project.SpreadPercentCompleteToStatusDate (Project)
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour