salut
j'ai fais ce programme mais il foctionne pas toujours
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
17
18
Public Sub test()
 
Dim oTa As Task
 
Dim oA As Assignment
 
 
For Each oTa In ActiveProject.Tasks
 
    For Each oA In oTa.Assignments
 
    oA.Text25 = oTa.Text25
 
     Next oA
 
    Next oTa
 
End Sub

le but parcourir les ligne , lorsque ont trouve une ressource , en regarde le champ text25 et en l'affecte la valeur du champ text25 de la tache qui est en dessus de cette ressource