Partager via


Propriété Task.Milestone (Project)

Cette propriété a la valeur True si la tâche est un jalon. Variant en lecture/écriture.

Syntaxe

expression. Milestone

Expression Variable qui représente un objet Task .

Exemple

L’exemple suivant montre comment marquer en tant que jalons les tâches du projet actif dont le nom commence par le mot « Inspection ».

Sub MarkInspectionTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim MilestoneName As String 
 Dim NameLength As Integer 
 
 MilestoneName = "Inspection" 
 NameLength = Len(MilestoneName) 
 
 For Each T In ActiveProject.Tasks 
 ' If the task's name begins with Inspection, it's a milestone. 
 If UCase(Left(T.Name, NameLength)) = UCase(MilestoneName) Then 
 T.Milestone = True 
 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.