Propriété Task.GroupBySummary (Project)

True si l’élément sélectionné dans un affichage de tâches se trouve dans une ligne de résumé de groupe ; sinon, False. Boolean (en lecture seule).

Syntaxe

expression. GroupBySummary

Expression Variable qui représente un objet Task .

Remarques

Lorsque vous appliquez une commande Regrouper par à un affichage de tâches, les lignes récapitulatives de groupe affichent la définition du groupe dans la colonne Nom de la tâche. Si une cellule sélectionnée se trouve dans une ligne récapitulative de groupe, la propriété GroupBySummary prend la valeur True.

La propriété GroupBySummary est accessible via la ActiveCell.Task propriété , et non via ActiveProject.Tasks(x).

Exemple

L’exemple suivant applique le regroupement Durée à l’affichage Diagramme de Gantt et sélectionne ensuite la première cellule de chaque ligne de l’affichage avant de tester s’il s’agit d’une ligne récapitulative de groupe. Le processus se poursuit jusqu’à ce que la ligne soit vide, puis affiche un message contenant les résultats du test pour chaque ligne.

Sub ShowGroupByItems() 
 Dim isValid As Boolean 
 Dim tsk As Task 
 Dim rowType As String 
 Dim msg As String 
 
 isValid = True 
 msg = "" 
 
 ActiveProject.Views("Gantt Chart").Apply 
 GroupApply Name:="Duration" 
 Application.SelectBeginning 
 
 ' When a cell in an empty row is selected, accessing the ActiveCell.Task 
 ' property results in error 1004. 
 On Error Resume Next 
 
 ' Loop until a cell in an empty row is selected. 
 While isValid 
 Set tsk = ActiveCell.Task 
 
 If Err.Number > 0 Then 
 isValid = False 
 Debug.Print Err.Number 
 Err.Number = 0 
 Else 
 If tsk.GroupBySummary Then 
 rowType = "' is a group-by summary row." 
 Else 
 rowType = "' is a task row." 
 End If 
 
 msg = msg & "Task name: '" & tsk.Name & rowType & vbCrLf 
 SelectCellDown 
 End If 
 Wend 
 
 MsgBox msg, vbInformation, "GroupBy Summary for Tasks" 
 
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.