Discussion :

[nb_fr31]

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

[jfontaine]

Et ca plante sur qu'elle ligne?

[patbou]

bonjour,

quel est le code erreur ?