none
calculer la somme des tâches et la somme des ressources Ms Project VBA RRS feed

  • Discussion générale

  • Bonjour,

    Actuellement en stage sur un projet de gestion de projet, j'aimerai intégrer une fonctionnalité permettant de calculer le nombre de taches totales et le nombre de ressources totales pour pouvoir ensuite les affecter selon le besoin.

    Merci d'avance

    Marion

    mercredi 22 mai 2013 12:47

Toutes les réponses

  • Bonsoir,

    Voilà une macro qui comptabilise le nombre de tâches en cours, non commencé, fini..... qui peut le plus peut le moins....

    Sub tache_count()

     Dim taskenCours As Integer

    Dim taskNobegin As Integer

    Dim taskend As Integer

    taskenCours = 0

    taskNobegin = 0

    taskend = 0

     Dim oTache As Task

     For Each oTache In ActiveProject.Tasks

        If oTache.Summary = False Then

            If Not oTache Is Nothing Then

                If oTache.PercentComplete = 0 Then

                taskNobegin = taskNobegin + 1

                End If

                If oTache.PercentComplete = 100 Then

                taskend = taskend + 1

                End If

                If oTache.PercentComplete < 100 And oTache.PercentComplete > 0 Then

                taskenCours = taskenCours + 1

                End If

             End If

        End If

     Next oTache

     reponse = MSgbox("Comptage terminé " & vbCrLf & vbCrLf & "Tâches en cours =" & taskenCours & vbCrLf & vbCrLf & "Tâches fini =" & taskend & vbCrLf & vbCrLf & "Tâches pas commencé =" & taskNobegin, vbOKOnly, "fin assistant") = vbOK

     End Sub

    Voilà pour les tâches 

    Bonne journée


    Philippe RAISSAC

    mercredi 22 mai 2013 20:16
  • Merci cela marche bien et je rajoute quoi pour effectuer une somme de toutes les données ?
    jeudi 23 mai 2013 13:19
  • J'ai trouvé, pour ceux à qui ca peut servir:

    Sub Tache_totale()

    Dim Taches_globales As Integer
    Taches_global = 0

    Application.ScreenUpdating = False
       
        Dim Tache As Task
       
        For Each Tache In ActiveProject.Tasks
            If Tache.Summary = False Then
                If Not Tache Is Nothing Then
            If FieldName = "Récapitulative" = False Then
                Taches_globales = Taches_globales + 1
            End If
                End If
            End If
                       
        Next Tache
        
        Reponse = MsgBox("Comptage terminé " & vbCrLf & vbCrLf & "Tâches globales=" & Taches_globales, vbOKOnly, "fin assistant") = vbOK
       
    Application.ScreenUpdating = False

    End Sub

    jeudi 23 mai 2013 14:30