Partager via

Propriété Application.ActiveSelection (Project)

  • Article

Obtient un objet Selection qui représente la sélection active. Type de données Selection en lecture seule.

Syntaxe

expression. ActiveSelection

expressionUne variable qui représente un objetApplication.

Exemple

L'exemple suivant montre comment afficher le nom de chaque tâche sélectionnée dans un message. L'exécution de cet exemple sans sélection valide produit une erreur récupérable (code d'erreur 424).

Sub SelectedTasks() 
 
 Dim T As Task 
 
 If Not (ActiveSelection.Tasks Is Nothing) Then 
 For Each T In ActiveSelection.Tasks 
 ' Test for blank task row 
 If Not (T Is Nothing) Then 
 MsgBox T.Name 
 End If 
 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.