Partager via

Propriété Task.ActualFinish (Project)

  • Article

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

Syntaxe

expression. ActualFinish

Expression Variable qui représente un objet Task .

Exemple

L'exemple suivant montre comment demander à l'utilisateur de définir les dates de fin réelles des tâches du projet actif.

Sub SetActualFinishForTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Entry As String ' User's entry 
 
 For Each T In ActiveProject.Tasks 
 ' Loop until user enters a date or clicks Cancel. 
 Do While 1 
 Entry = InputBox$("Enter the actual finish date for " & _ 
 T.Name & ":") 
 
 If IsDate(Entry) Or Entry = Empty Then 
 Exit Do 
 Else 
 MsgBox ("You didn't enter a date; try again.") 
 End If 
 Loop 
 
 'If user didn't click Cancel, set the task's actual finish date. 
 If Entry <> Empty Then 
 T.ActualFinish = 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.