Partager via

Propriété Assignment.ActualCost (Project)

  • Article

Obtient ou définit le coût réel de l’affectation. Variant en lecture/écriture.

Syntaxe

expression. ActualCost

Expression Variable qui représente un objet Assignment .

Remarques

La propriété ActualCost peut être définie pour les objets Assignment et Task (mais pas pour les tâches récapitulatives) si la case à cocher Les coûts réels sont toujours calculés par Project située sous l’onglet Prévisions de la boîte de dialogue Options de projet est désactivée.

Les coûts réels sont également disponibles pour les tâches et les ressources. Si la case à cocher Les coûts réels sont toujours calculés par Project est activée, Project calcule le coût réel actuel de l’affectation à partir des tables des taux de coûts des ressources et du travail réel effectué par la ressource affectée. Pour accéder par programmation aux tables de taux de coût des ressources, utilisez la collection CostRateTables .

Exemple

L’exemple suivant montre comment demander à l’utilisateur les coûts réels des tâches sans ressource dans le projet actif. Il est supposé que la case à cocher Les coûts réels sont toujours calculés par Project est désactivée.

Sub GetActualCostsForTasks() 
 
 Dim Entry As String ' User input 
 Dim T As Task ' Task object used in For Each loop 
 
 ' Count the resources of each task in the active project. 
 For Each T In ActiveProject.Tasks 
 
 ' If a task has no resources, then prompt user for actual cost. 
 If T.Resources.Count = 0 Then 
 
 Do While 1 
 Entry = InputBox$("Enter the cost for " & T.Name & ":") 
 
 ' Exit loop if user enters number or clicks Cancel. 
 If IsNumeric(Entry) Or Entry = Empty Then 
 Exit Do 
 
 ' User didn't enter a number; tell user to try again. 
 Else 
 MsgBox ("You didn't enter a number; try again.") 
 End If 
 Loop 
 
 ' If user didn't click Cancel, assign actual cost to task. 
 If Not StrComp(Entry, Empty, 1) = 0 Then T.ActualCost = Entry 
 End If 
 
 Next T 
 
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.