Partager via


Objet GroupCriterion2 (Project)

Représente un critère dans une définition de groupe où la hiérarchie de groupe peut être conservée et dont la couleur de cellule peut être représentée par une valeur hexadécimale. L’objet GroupCriterion2 est membre de la collection GroupCriteria2 .

Exemple

Utilisation de l’objet GroupCriterion2

Utilisez **GroupCriteria2(**Index), oùIndex est l’index de critère, pour renvoyer un seul objet GroupCriterion2 . L'exemple suivant montre comment affecter la couleur bleue à la cellule du premier critère du groupe de ressources Taux standard.

ActiveProject.ResourceGroups2("Standard Rate").GroupCriteria2(1).CellColor = &HFF0000

Utilisation de la collection GroupCriteria2

Utilisez la propriété GroupCriteria pour renvoyer une collection GroupCriteria2 . L’exemple suivant montre comment afficher une liste des champs utilisés en tant que critères dans le groupe de tâches spécifié, ainsi que leur ordre de tri (croissant ou décroissant).

Dim GC2 As GroupCriterion2  
Dim Fields As String  
  
For Each GC2 In ActiveProject.TaskGroups2("Priority Keeping Outline Structure").GroupCriteria  
    If GC2.Ascending = True Then  
        Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in ascending order." & vbCrLf  
    Else  
        Fields = Fields & GC2.Index & ". " & GC2.FieldName & " is sorted in descending order." & vbCrLf  
    End If  
Next GC2  
  
MsgBox Fields

Utilisez la méthode AddEx pour ajouter un objet GroupCriterion2 à la collection GroupCriteria2 , où CellColor peut être une valeur hexadécimale. L’exemple suivant montre comment ajouter un autre critère au groupe de ressources spécifié pour regrouper les ressources dans l’ordre croissant en fonction de leur pourcentage de travail achevé (par incréments de 25 %).

ActiveProject.ResourceGroups2("Response Pending").GroupCriteria2.AddEx "% Work Complete", True, _
    CellColor:=&H0101FF, GroupOn:=pjGroupOnPct1_25

Méthodes

Nom
Delete

Propriétés

Nom
Application
Ascending
Assignment
CellColor
CellColorEx
FieldName
FontBold
FontColor
FontColorEx
FontItalic
FontName
FontSize
FontUnderLine
GroupInterval
GroupOn
Index
Parent
Pattern
StartAt

Voir aussi

Modèle objet Project

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.