Cell.Resource, propriété (Project)
Obtient un objet Resource représentant la ressource dans la cellule active. Type de données Resource en lecture seule.
Syntaxe
expression. Resource
Expression Variable qui représente un objet Cell .
Exemple
L’exemple suivant applique le regroupement Ressources achevées et inachevées à l’affichage Tableau des ressources et sélectionne ensuite la première cellule de chaque ligne de l’affichage avant de tester s’il s’agit d’une ligne récapitulative 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.