Objet OverAllocatedAssignments (Project)

Représente une collection d’objets Assignment où la ressource est surutilisée.

Remarques

Utilisez la propriété Item pour obtenir un seul objet Assignment à partir de la collection OverAllocatedAssignments .

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 overPeak As Boolean  
  
    overPeak = False  
  
    For Each t In ActiveProject.Tasks  
        If t.Overallocated Then  
            Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak)  
            numOver = overAlloc.Count  
            totalNumOver = overAlloc.TotalDetectedCount  
  
            For Each a In overAlloc  
                Debug.Print "Resource: " & a.Resource.Name & " is overallocated on task: " & t.Name  
                Debug.Print vbTab & "Number of overallocated assignments: " & numOver  
            Next a  
        End If  
    Next t  
End Sub

Propriétés

Voir aussi

Modèle objet Project

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.