Bonjour,

J'ai fait une macro pour assigner des ressources automatiquement à mon planning :
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


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.
Comment dois-je faire pour résoudre mon problème.

Merci d'avance pour vos réponses.
Cordialement
Didier