Partager via


Méthode Application.SelectCellDown (Project)

Sélectionne les cellules situées directement sous la sélection active.

Syntaxe

expression. SelectCellDown( _NumCells_, _Extend_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
NumCells Facultatif Long Nombre de cellules à sélectionner vers le bas à partir de la sélection active. La valeur par défaut est 1.
Extend Facultatif Boolean True si la sélection active est étendue jusqu’à la cellule spécifiée. La valeur par défaut est False.

Valeur renvoyée

Boolean

Remarques

La méthode SelectCellDown n'est pas disponible si l'affichage actif est Calendrier, Réseau de tâches ou Graphe ressources.

Exemple

L’exemple suivant applique le regroupement Ressources complètes et incomplètes à l’affichage Feuille de ressources, puis utilise SelectCellDown pour sélectionner la première cellule de chaque ligne et teste si la ligne est un résumé de groupe. Le processus se poursuit jusqu’à ce que la ligne soit vide, puis affiche un message contenant les résultats du test pour chaque ligne.

Sub ShowGroupByItems() 
 Dim isValid As Boolean 
 Dim res As Resource 
 Dim rowType As String 
 Dim msg As String 
 
 isValid = True 
 msg = "" 
 
 ActiveProject.Views("Resource Sheet").Apply 
 GroupApply Name:="Complete and Incomplete Resources" 
 Application.SelectBeginning 
 
 ' When a cell in an empty row is selected, accessing the ActiveCell.Resource 
 ' property results in error 1004. 
 On Error Resume Next 
 
 ' Loop until a cell in an empty row is selected. 
 While isValid 
 Set res = ActiveCell.Resource 
 
 If Err.Number > 0 Then 
 isValid = False 
 Debug.Print Err.Number 
 Err.Number = 0 
 Else 
 If res.GroupBySummary Then 
 rowType = "' is a group-by summary row." 
 Else 
 rowType = "' is a resource row." 
 End If 
 
 msg = msg & "Resource name: '" & res.Name & rowType & vbCrLf 
 SelectCellDown 
 End If 
 Wend 
 
 MsgBox msg, vbInformation, "GroupBy Summary for Resources" 
 
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.