Propriété Task.ActualDuration (Project)

Obtient ou définit la durée réelle (en minutes) d’une tâche. En lecture seule pour les tâches récapitulatives. Type de données Variant en lecture-écriture.

Syntaxe

expression. ActualDuration

Expression Variable qui représente un objet Task .

Exemple

L'exemple suivant montre comment marquer les tâches du projet actif ayant des durées réelles qui dépassent le nombre de minutes indiqué.

Sub MarkLongDurationTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Minutes As Long ' Duration entered by user 
 
 ' Prompt user for the actual duration, in minutes. 
 Minutes = Val(InputBox$("Enter the actual duration, in minutes: ")) 
 
 ' Don't do anything if the InputBox$ was cancelled. 
 If Minutes = 0 Then Exit Sub 
 
 ' Cycle through the tasks of the active project. 
 For Each T In ActiveProject.Tasks 
 ' Mark a task if it exceeds the duration. 
 If T.ActualDuration > Minutes Then T.Marked = True 
 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.