Propriété Month.Count (Project)

Obtient le nombre d’éléments de la collection Mois pour une année spécifiée de 1984 à 2149. Entier en lecture seule.

Syntaxe

expression. Nombre

expression Variable qui représente un objet « Mois ».

Exemples

L’exemple suivant dans la fenêtre Immediate de VBE renvoie 12, le nombre de mois en 2012. Si vous définissez l’année sur 1983 ou 2150, le résultat est « Erreur d’exécution '1101' ; l’argument n’est pas valable."

? activeproject.Resources(1).Calendar.Years(2012).Months.Count

L’exemple suivant illustre l’utilisation de la propriété Total pour l’objet Assignments . Il invite l’utilisateur à entrer le nom d’une ressource, puis affecte cette ressource à des tâches sans aucune ressource.

Sub AssignResource()  
    Dim T As Task ' Task object used in For Each loop  
    Dim R As Resource ' Resource object used in For Each loop  
    Dim Rname As String ' Resource name  
    Dim RID As Long ' Resource ID  
  
    RID = 0  
    RName = InputBox$("Enter the name of a resource: ")  
  
    For Each R in ActiveProject.Resources  
        If R.Name = RName Then  
            RID = R.ID  
            Exit For  
        End If  
    Next R  
  
    If RID <> 0 Then  
        ' Assign the resource to tasks without any resources.  
        For Each T In ActiveProject.Tasks  
            If T.Assignments.Count = 0 Then  
                T.Assignments.Add ResourceID:=RID  
            End If
        Next T
    Else  
        MsgBox Prompt:=RName & " is not a resource in this project.", buttons:=vbExclamation
    End If
End Sub

Voir aussi

Months, objet (collection d'objets)

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.