Méthode Task.UnlinkSuccessors (Project)

Article
04/07/2023

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.

Partager via