Propriété Resource.MaterialLabel (Project)

Obtient ou définit l’étiquette d’une ressource matérielle. String en lecture/écriture.

Syntaxe

expression. MaterialLabel

Expression Variable qui représente un objet Resource .

Remarques

La propriété MaterialLabel ne renvoie aucune information utile pour les ressources non matérielles, comme les personnes ou les machines. La définition d’une valeur renvoie une erreur récupérable (code d’erreur 1101) lorsque cette propriété est appliquée à des ressources non matérielles.

Exemple

Cet exemple montre comment parcourir la liste des ressources du projet actuel et définir l’étiquette de matériau de toutes les ressources matérielles sur « palette ». (L’interception des erreurs dans cet exemple est uniquement pour illustrer la façon dont vous pouvez gérer une exception attendue. Dans un exemple réel, vous incluriez probablement un test tel que le suivant :

If InStr(R.Name, "bricks") <> 0 Then...

serait inclus afin de s’assurer que l’étiquette Matériel n’a été affectée qu’à des dalles, briques, etc.)

Sub FixLabels() 
 Dim R As Resource 
 
 On Error GoTo ErrTrap: 
 
 For Each R In ActiveProject.Resources 
 If R.MaterialLabel <> "pallet" Then R.MaterialLabel = "pallet" 
 Next R 
 
 Exit Sub 
 
ErrTrap: 
 If Err.Number = 1101 Then 
 Err.Clear 
 Resume Next 
 Else 
 MsgBox Err.Description, vbExclamation, "Error" 
 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.