Objet SplitParts (Project)

Contient une collection d’objets SplitPart .

Exemple

Utilisation de la collection d'objets SplitParts

Utilisez SplitParts (Index ), oùIndex est le numéro d’index du numéro d’index de la tâche, pour renvoyer un seul objet SplitPart . L'exemple suivant montre comment répertorier les heures de début et de fin de chaque portion de la tâche contenue dans la cellule active.

Dim Part As Long, Portions As String 

 

For Part = 1 To ActiveCell.Task.SplitParts.Count 

 With ActiveCell.Task 

 Portions = Portions & "Task portion " & Part & ": Start on " & _ 

 .SplitParts(Part).Start & ", Finish on " & _ 

 .SplitParts(Part).Finish & vbCrLf 

 End With 

Next Part 

 

MsgBox Portions

Utilisation de la collection SplitParts

Utilisez la propriété SplitParts pour renvoyer une collection SplitParts . L’exemple suivant montre comment renvoyer le nombre de portions de la tâche pour chaque tâche du projet actif.

Dim T As Task 

 

For Each T In ActiveProject.Tasks 

 If Not (T Is Nothing) Then 

 MsgBox T.Name & ": " & T.SplitParts.Count 

 End If 

 

Next T

Utilisez la méthode Split (objet Task ) pour ajouter un objet SplitPart à la collection SplitParts . (La méthode Split crée un fractionnement dans une tâche.) L’exemple suivant crée un fractionnement dans la tâche du mercredi au lundi.

ActiveCell.Task.Split "10/2/02", "10/7/02"

Méthodes

Nom
Add

Propriétés

Nom
Application
Count
Élément
Parent

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.