OVH Cloud OVH Cloud

Boxformat bug

1 réponse
Avatar
adesert
Bonjour,
J'ai développé une macro qui me permet dans un PERT de n'imprimer que les taches de personnes saisies par l'utilisateur (PIC) sur une période donnée. Ces taches apparaissent dans le PERT avec un format "gras" et leurs prédecesseurs / successeurs en format "non gras".
Mon problème est que j'utilise boxformat pour ce faire et que 3fois sur 4, cela plante (runtime error 1101...).

Comment résoudre ce problème?

Ci dessous mon code:
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
ViewApply Name:="Network &Diagram"
Application.BoxFormat TaskID:=jTask.UniqueID, BorderWidth:=1, DataTemplate:="ICE3 Standard"
If jTask.Flag5 = True Then
jTask.Flag5 = False
End If
End If
Next jTask

1 réponse

Avatar
Gérard Ducouret
Bonjour,

J'ai un peu modifier votre procédure VBA, ainsi elle fonctionne très bien:
(version française)
Sub Network()
Dim jTask As Task
ViewApply Name:="Réseau &de tâches"
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
If jTask.Flag5 = True Then
BoxSet TaskID:=jTask.UniqueID
BoxFormat DataTemplate:="Standard", HorizontalGridlines:=True,
VerticalGridlines:úlse, BorderShape:=pjBoxWideRectangle,
BorderColor:=pjMaroon, BorderWidth:=4, BackgroundColor:=pjWhite,
BackgroundPattern:=pjBackgroundSolidFill, Reset:úlse
End If
End If
Next jTask
End Sub

Gérard Ducouret

"adesert" a écrit dans le message de news:

Bonjour,
J'ai développé une macro qui me permet dans un PERT de n'imprimer que les
taches de personnes saisies par l'utilisateur (PIC) sur une période
donnée. Ces
taches apparaissent dans le PERT avec un format "gras" et leurs
prédecesseurs /
successeurs en format "non gras".
Mon problème est que j'utilise boxformat pour ce faire et que 3fois sur 4,
cela
plante (runtime error 1101...).

Comment résoudre ce problème?

Ci dessous mon code:
For Each jTask In ActiveProject.Tasks
If Not (jTask Is Nothing) Then
ViewApply Name:="Network &Diagram"
Application.BoxFormat TaskID:=jTask.UniqueID, BorderWidth:=1,
DataTemplate:="ICE3 Standard"
If jTask.Flag5 = True Then
jTask.Flag5 = False
End If
End If
Next jTask