Propriété Resource.Group (Project)
Obtient ou définit le groupe auquel appartient une ressource. Type de données String en lecture-écriture.
Syntaxe
expression. Groupe
Expression Variable qui représente un objet Resource .
Exemple
L’exemple suivant supprime les ressources du projet actif qui appartiennent à un groupe spécifié par l’utilisateur.
Sub DeleteResourcesInGroup()
Dim Entry As String ' The group specified by the user
Dim Deletions As Integer ' The number of deleted resources
Dim R As Resource ' The resource object used in loop
' Prompt user for the name of a group.
Entry = InputBox$("Enter a group name:")
' Cycle through the resources of the active project.
For Each R in ActiveProject.Resources
' Delete a resource if its group name matches the user's request.
If R.Group = Entry Then
R.Delete
Deletions = Deletions + 1
End If
Next R
' Display the number of resources that were deleted.
MsgBox(Deletions & " resources were deleted.")
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour