Propriété OverAllocatedAssignments.Item (Project)

Article
04/07/2023

Obtient un seul objet Assignment de la collection OverAllocatedAssignments . Type de données Affectation en lecture seule.

Syntaxe

expression. Élément (Index)

Expression Expression qui renvoie un objet « OverAllocatedAssignments ».

Parameters

Nom	Requis/Facultatif	Type de données	Description
Index	Obligatoire	Long	Numéro d’index de l’objet Assignment à renvoyer.

Exemple

L’exemple suivant présente les affectations dans lesquelles la ressource est surutilisée. Lorsque l’argument overPeak a la valeur False, la surallocation n’est pas supérieure à la durée de ressource maximale disponible (100 %). Si vous avez défini overPeak sur True, les affectations surutilisées dépassant la durée maximale de la ressource, par exemple 150 %, sont affichées.

Sub FindOverallocatedAssignments() 

 Dim t As Task 

 Dim a As Assignment 

 Dim overAlloc As OverAllocatedAssignments 

 Dim numOver As Long 

 Dim i As Long 

 Dim overPeak As Boolean 

 

 overPeak = True 

 

 For Each t In ActiveProject.Tasks 

 If t.Overallocated Then 

 Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak) 

 numOver = overAlloc.Count 

 totalNumOver = overAlloc.TotalDetectedCount 

 

 For i = 1 To numOver 

 Set a = overAlloc.Item(i) 

 Debug.Print "Task: " & t.Name & " - Overallocated resource: " _ 

 & a.ResourceName 

 Debug.Print vbTab & "Resource peak: " & a.Peak 

 Next i 

 End If 

 Next t 

End Sub

Voir aussi

OverAllocatedAssignments, collection d’objets

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.

Partager via