Partager via


Propriété Resource.CostRateTables (Project)

Obtient une collection CostRateTables représentant les tables de taux de coût pour la ressource. Type de données CostRateTables en lecture seule.

Syntaxe

expression. CostRateTables

Expression Variable qui représente un objet Resource .

Exemple

L’exemple suivant montre comment répertorier les taux de salaire standard pour toutes les tables des taux de coûts de la ressource située dans la cellule active.

Sub ListPayRates() 
 Dim CRT As CostRateTable, PR As PayRate 
 Dim Rates As String 
 
 For Each CRT In ActiveCell.Resource.CostRateTables 
 For Each PR In CRT.PayRates 
 Rates = Rates & "CostRateTable " & CRT.Name & ": " & _ 
 PR.StandardRate & " (Effective " & PR.EffectiveDate & _ 
 ")" & vbCrLf 
 Next PR 
 Next CRT 
 
 MsgBox Rates 
 
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.