Méthode Application.ResourceAssignment (Project)

Article
04/07/2023

Attribue, supprime ou remplace les ressources des tâches sélectionnées ou modifie le nombre d'unités d'une ressource.

Syntaxe

expression. ResourceAssignment (Resources, Operation, With)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Resources	Facultatif	String	Noms des ressources à affecter, supprimer ou remplacer dans les tâches sélectionnées. Note Project n’affecte pas de ressource si des milliers de séparateurs ou des séparateurs décimaux sont inclus dans les valeurs d’unité.
Opération	Facultatif	Long	Si Opération est omis, Project affecte les ressources aux tâches sélectionnées. La valeur par défaut est pjAssign. Il peut s’agir de l’une des constantes PjResAssignOperation.
With	Facultatif	String	Lorsqu'il est utilisé avec la constante pjReplace pour l'argument Opération, cet argument indique le nom des ressources qui remplacent les ressources des tâches sélectionnées.

Constantes PjResAssignOperation

Constante	Description
pjAssign	Attribue les ressources spécifiées aux tâches sélectionnées.
pjRemove	Supprime les ressources spécifiées des tâches sélectionnées.
pjReplace	Les ressources spécifiées par With remplacent les ressources spécifiées par Resources.
pjChange	Modifie les unités de ressource de la ressource spécifiée. Cette constante ne peut être utilisée que pour une seule ressource.

Valeur renvoyée

Boolean

Remarques

Utilisez le paramètre Resources pour spécifier qu’une affectation de ressource est demandée ou demandée lors de l’utilisation de l’Assistant Substitution de ressources. Par exemple, la macro suivante spécifie que l’affectation de r1 à la tâche sélectionnée est une affectation demandée.

Sub RequestAssignment()
    ResourceAssignment Resources:="r1[100%, R]", Operation:=pjChange, With:="" 
End Sub

Remarque

Lorsque vous utilisez le paramètre Resources de cette façon, D spécifie « Demand », R spécifie « Request » et N spécifie « None ». En outre, les espaces ne sont pas autorisés entre la valeur d’unités et la valeur Demande/Demande. Par exemple, Resources:="100%,R" fonctionne, mais Resources:="100%, R" ne fonctionne pas.

L’Assistant Substitution de ressources ne peut pas substituer des ressources matérielles. Par conséquent, vous ne pouvez pas demander ou demander une ressource matérielle pour une affectation particulière à l’aide du paramètre Resources .

Exemple

L'exemple suivant montre comment demander à l'utilisateur le nom d'une ressource et attribuer celle-ci aux tâches sélectionnées.

Sub AssignResourceToSelectedTasks() 
 
    Dim Entry As String     ' The name of the resource to add to selected tasks 
    Dim R As Resource       ' Resource object used in For Each...Next loop 
    Dim Found As Boolean    ' Whether or not the resource is in the active project 
 
    Entry = InputBox$("Enter the name of the resource you want to add to the selected tasks.") 
     
    ' Assume resource doesn't exist in the active project. 
    Found = False 
 
    ' Look for the resource. 
    For Each R In ActiveProject.Resources 
        If Entry = R.Name Then Found = True 
    Next R 
 
    ' If the resource is found, then assign it to selected tasks. 
    If Found Then 
        ResourceAssignment Resources:=Entry, Operation:=pjAssign 
    ' Otherwise, tell user the resource doesn't exist. 
    Else 
        MsgBox ("There is no resource in the active project named " & Entry & ".") 
    End If 
     
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.

Partager via