Méthode Task.UnlinkSuccessors (Project)
Supprime un ou plusieurs successeurs de la tâche.
Syntaxe
expression. UnlinkSuccessors
( _Tasks_
)
Expression Variable qui représente un objet Task .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Tâches | Obligatoire | Object | Il peut s’agir d’un objet Task ou Tasks , qui spécifie une ou plusieurs tâches supprimées en tant que successeurs. |
Valeur renvoyée
Nothing
Exemple
L’exemple suivant montre comment supprimer le successeur spécifié de chaque tâche du projet actif.
Sub RemoveSuccessor()
Dim Entry As String ' Successor specified by user
Dim SuccTask As Task ' Successor task object
Dim T As Task ' Task object used in For Each loop
Dim S As Task ' Successor (task object) used in loop
Entry = InputBox$("Enter the name of a successor to unlink from every task in this project.")
Set SuccTask = Nothing
' Look for the name of the successor in tasks of the active project.
For Each T In ActiveProject.Tasks
If T.Name = Entry Then
Set SuccTask = T
Exit For
End If
Next T
' Remove the successor from every task in the active project.
If Not (SuccTask Is Nothing) Then
For Each T In ActiveProject.Tasks
For Each S In T.SuccessorTasks
If S.Name = Entry Then
T.UnlinkSuccessors SuccTask
Exit For
End If
Next S
Next T
End If
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour