Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Obtient ou définit la priorité pour la tâche. Variant en lecture/écriture.
Syntaxe
expression. Priority (Priorité)
expression Variable qui représente un objet Tâche .
Remarques
La propriété Priority peut être une valeur comprise entre 0 et 1000. Une valeur de 1000 a pour effet que la tâche n’est pas nivelée dans une opération de nivellement. Comme la priorité est une variante, vous pouvez définir la priorité de la tâche 2 à 900, par exemple, avec le code suivant : activeproject.Tasks(2).Priority = "Highest". Le tableau suivant présente les valeurs de chaîne et les valeurs entières correspondantes pour la propriété Priority.
Remarque
N’utilisez pas les constantes PjPriority , qui ont des valeurs comprises entre 0 et 9 pour certaines versions antérieures de Project.
| String | Valeur de priorité |
|---|---|
| "Ne pas effectuer d’audit" | 1000 |
| « Le plus élevé | 900 |
| "Très haute" | 800 |
| « Supérieur » | 700 |
| « Élevé » | 600 |
| « Moyen » | 500 |
| « Faible » | 400 |
| « Plus bas » | 300 |
| "Très basse" | 200 |
| « Le plus bas » | 100 |
Project utilise la propriété Priority de la tâche récapitulative de projet (tâche 0) pour déterminer comment traiter les tâches lors du nivellement des ressources sur plusieurs projets. Si deux projets ont des priorités égales, la priorité pour les tâches individuelles est utilisée. Vous pouvez définir la priorité du projet dans la boîte de dialogue Informations sur le projet ou afficher la tâche récapitulative du projet sur le diagramme de Gantt, sélectionner la tâche, puis utiliser une instruction telle que ActiveCell.Task.Priority = 700.
Exemple
L’exemple suivant montre comment affecter aux tâches du chemin critique une priorité très élevée dans le projet actif.
Sub SetPriorityOfCriticalTasks()
Dim T As Task ' Task object used in For Each loop
' Look for tasks on the critical path.
For Each T In ActiveProject.Tasks
If T.Critical = True Then
T.Priority = 800
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.