Événement Application.ProjectBeforeAssignmentChange (Project)

Article
04/07/2023

Se produit avant que l'utilisateur ne change la valeur d'un champ d'affectation.

Syntaxe

expression. ProjectBeforeAssignmentChange( _asg_, _Field_, _NewVal_, _Cancel_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Asg	Requis	Assignment	Affectation dont le champ est modifié.
Champ	Requis	PjAssignmentField	Champ modifié. Si plusieurs champs sont modifiés par l’utilisateur, l’événement est déclenché pour chaque champ modifié. Il peut s’agir de l’une des constantes PjAssignmentField suivantes.
NewVal	Requis	Variant	Nouvelle valeur pour le champ spécifié par Champ.
Cancel	Obligatoire	Booléen	False lorsque l'événement se produit. Si la procédure événementielle affecte la valeur True à cet argument, la valeur du champ spécifié par Field reste inchangée.

Remarques

Les événements de projet ne se produisent pas lorsque le projet est incorporé dans un autre document ou une autre application.

Les événements ProjectBeforeAssignmentChange ne se produit pas lorsque les données chronologiques sont modifiées, lorsqu’une ligne entière de ressources ou de tâches est collée, lorsqu’une affectation est modifiée suite à une opération de glisser-déplacer dans l’affichage Utilisation des ressources, pendant les opérations sur les listes de ressources, lors de l’insertion ou de la suppression d’un sous-projet ou lorsque des modifications ont été apportées à l’aide d’un formulaire personnalisé. Pour accéder à des informations supplémentaires et consulter un exemple de code de création et de test d’un gestionnaire d’événements, voir Utilisation des événements avec les objets Application et Project.

Exemple

L’exemple suivant examine les nouvelles affectations de ressources et les annule si elles concernent la ressource spécifiée. Cet exemple requiert un nouveau module de classe et du code supplémentaire pour fonctionner.

Private Sub App_ProjectBeforeAssignmentChange(ByVal asg As Assignment, ByVal Field As PjAssignmentField, _ 
    ByVal NewVal As Variant, Cancel As Boolean) 
 
    If Field = pjAssignmentResourceName And NewVal = "Lisa Jones" Then 
        MsgBox "Lisa is no longer available for assignment!" 
        Cancel = True 
    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