Partager via


Propriété Task.Overallocated (Project)

Cette propriété a la valeur True si une des affectations d’une tâche est surutilisée. Boolean (en lecture seule).

Syntaxe

expression. Overallocated

Expression Variable qui représente un objet Task .

Exemple

L'exemple suivant affiche le pourcentage de ressources surutilisées du projet actif.

Sub DisplayOverallocatedPercentage() 
 
 Dim R As Resource ' Resource object used in For Each loop 
 Dim NOverallocated As Long ' Number of overallocated resources 
 
 For Each R In ActiveProject.Resources 
 If R.Overallocated Then NOverallocated = NOverallocated + 1 
 Next R 
 
 MsgBox (Str$((NOverallocated / ActiveProject.Resources.Count) * 100) _ 
 & " percent (" & Str$(NOverallocated) & "/" & Str$(ActiveProject.Resources.Count) _ 
 & ")" & " of the resources in this project are overallocated.") 
 
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.