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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <adesert@domain-xyz.in> a écrit dans le message de news:
_6ednW9w7LpckHLV4p2dnAA@giganews.com...
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
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