Méthode Application.EditGoTo (Project)

Atteint une ressource, une tâche ou une date.

Syntaxe

expression. EditGoTo( _ID_, _Date_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
ID	Facultatif	Long	Nombre qui indique le numéro d'identification de la tâche ou de la ressource à afficher dans le volet actif.
Date	Facultatif	Variant	Nombre ou chaîne qui indique la première date à afficher dans le volet actif.

Valeur renvoyée

Boolean

Exemple

L'exemple suivant montre comment demander à l'utilisateur d'indiquer une date ou un nom de tâche, puis atteindre la date ou la tâche dans le volet actif. Il est supposé que l'utilisateur est en affichage relatif aux tâches.

Sub PromptUserForEditGotoArguments() 
 
 Dim Entry As String ' Date or task name entered by user 
 
 Entry = InputBox$("Enter a date or a task name to which you want to scroll in the active pane.") 
 
 ' If user enters a date, scroll to a date in the active pane. 
 If IsDate(Entry) Then 
 EditGoTo Date:=Entry 
 ' Otherwise, scroll to a task in the active pane. 
 Else 
 EditGoTo ID:=ActiveProject.Tasks(Entry).ID 
 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.