Discussion :

[olive30]

Bonjour,
Je fais mes débuts et je souhaiterai avoir votre point de vue sur mon simple code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim job As Task
Dim nb As Integer
For Each job In ActiveProject.Tasks
If Not job Is Nothing Then
job.Cost = 1
End If
Next job
Set job = Nothing
End Sub

Au premier abord elle fonctionne comme attendu pour un petit nombre de lignes (50)
Toujours avec un nb de taches plus important (500) mais avec un temps d’attente non négligeable
Et puis semble jamais se terminer pour un projet entier…
Et sans aucun message d’erreur à priori

Cela compromet l’idée que je m’étais fait
Quelqu’un a –il une idée, erreurs, oubli dans mon code, limitations MsProject VBA, Nombre de tâches …
Merci par avance

[jeanjean6]

Salut,

Étrange, ça fonctionne bien pour moi avec 500 tâches..