Partager via

Propriété Project.LevelToDate (Project)

  • Article

Obtient ou définit la date de fin d’une plage de dates pendant laquelle les ressources surutilisées sont auditées. La valeur par défaut est la date de fin du projet ou la dernière date entrée. Variant en lecture/écriture.

Syntaxe

expression. LevelToDate

Expression Variable qui représente un objet Project .

Remarques

Vous pouvez également définir la propriété LevelToDate dans la boîte de dialogue Audit des ressources. Pour accéder à ce paramètre, cliquez sur Options d’audit sous l’onglet Ressource du Ruban, puis cliquez sur l’option Audit et définissez la date Au.

Exemple

L’exemple suivant montre comment permettre à l’utilisateur de changer la plage de dates pendant laquelle l’audit a lieu, si la plage actuelle commence à la date de début du projet ou se termine à sa date de fin.

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 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.