Bonjour,
J'ai fait une macro pour assigner des ressources automatiquement à mon planning :
En ce qui concerne la ressource ID1 qui est une ressource Travail il assigne bien 8 unités alors que pour l'autre qui est une ressource Matériel il assigne toujours 1 unité au lieu de 500.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub Affectation() Dim T As Task Dim Tache As Integer, TT As String On Error Resume Next SelectTaskColumn Column:="Noms ressources" EditCut For Each T In ActiveProject.Tasks Select Case T.Text1 Case Is = "Dalle" If T.Summary = False Then T.Assignments.Add T.ID, ResourceID:=1, Units:=8 T.Assignments.Add T.ID, ResourceID:=2, Units:=500# End If End Select Next End Sub
Comment dois-je faire pour résoudre mon problème.
Merci d'avance pour vos réponses.
Cordialement
Didier
Partager