Partager via

Propriété Task.PercentComplete (Project)

  • Article

Obtient ou définit le pourcentage d’avancement d’une tâche. Variant en lecture/écriture.

Syntaxe

expression. PercentComplete

Expression Variable qui représente un objet Task .

Exemple

L’exemple suivant montre comment supprimer une ressource des tâches qui disposent de deux ou plusieurs ressources et d’un pourcentage d’avancement de 85.

Sub ReallocateResource() 
 
 Dim Entry As String ' The name of the resource to remove 
 Dim T As Task ' The task object used in For loop 
 Dim RA As Assignment ' The resource assignment object to the task 
 
 Entry = InputBox$("Enter a resource name:") 
 
 ' Remove the resource from 85 percent complete tasks with 2+ resources. 
 For Each T In ActiveProject.Tasks 
 If T.PercentComplete >= 85 And T.Resources.Count >= 2 Then 
 For Each RA In T.Assignments 
 If UCase(Entry) = UCase(RA.ResourceName) Then 
 RA.Delete 
 End If 
 Next 
 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.