Application d'un calendrier conditionnel

Bonjour Yves,

Il doit être possible de développer une macro VBA qui
teste le contenu du champ Texte. Cela peut être une macro
envoyée manuellement et qui scanne toutes les tâches ou
une procédure evenementielle qui se met en route quand on
modifie la tâche.

Voici un exemple de code qui ne s'applique qu'à la
première tâche.
----------------------------------------------------
Sub CalTache1()

If ActiveProject.Tasks(1).Text1 = "sd" Then
ActiveProject.Tasks(1).Calendar = "24 Heures"
Else
ActiveProject.Tasks(1).Calendar = ""
End If

End Sub
-----------------------------------------------------

Bon courage

JF Morvan
www.stk-management.fr

-----Message d'origine-----
Bonjour,
J'essaie de trouver une façon pour que Project utilise le
calendrier 24 hres

pour une activité donnée si j'indique "sd" dans un champ
texte.Le calendrier

doit aussi avoir précédence sur le calendrier des
ressources (Les prévisions

ignorent les calendriers des ressources).
Quelqu'un peut m'aider?
Merci d'avance

Yves


.

Bonjour Yves,

Ceci peut se faire via une petite routine VBA dont voici un exemple :
NB : c'est le champ Text10 qui a été utilisé pour mettre le texte "sd".

Sub TaskCal()
Dim oTache As Object
For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
If oTache.Text10 = "sd" Then
oTache.Calendar = "TaskCal"
oTache.IgnoreResourceCalendar = True
End If
End If
Next
End Sub

Gérard Ducouret

"Yves Trudel" <y.trudel@ims-experts.com> a écrit dans le message de news:
e2uingH2DHA.3656@TK2MSFTNGP11.phx.gbl...

Bonjour,
J'essaie de trouver une façon pour que Project utilise le calendrier 24
hres

pour une activité donnée si j'indique "sd" dans un champ texte.Le
calendrier

doit aussi avoir précédence sur le calendrier des ressources (Les
prévisions

ignorent les calendriers des ressources).
Quelqu'un peut m'aider?
Merci d'avance

Yves

Quand je serai grand, je serai aussi bon que vous! mais ça risque d'être
long!
Ça marche au poil!
Merci!

"Gérard Ducouret" <gerard.ducouret@wanadooNOSPAM.fr> a écrit dans le message
de news: O6RypwQ2DHA.4032@tk2msftngp13.phx.gbl...

Bonjour Yves,

Ceci peut se faire via une petite routine VBA dont voici un exemple :
NB : c'est le champ Text10 qui a été utilisé pour mettre le texte "sd".

Sub TaskCal()
Dim oTache As Object
For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
If oTache.Text10 = "sd" Then
oTache.Calendar = "TaskCal"
oTache.IgnoreResourceCalendar = True
End If
End If
Next
End Sub

Gérard Ducouret

"Yves Trudel" <y.trudel@ims-experts.com> a écrit dans le message de news:
e2uingH2DHA.3656@TK2MSFTNGP11.phx.gbl...

Bonjour,
J'essaie de trouver une façon pour que Project utilise le calendrier 24
hres

pour une activité donnée si j'indique "sd" dans un champ texte.Le
calendrier

doit aussi avoir précédence sur le calendrier des ressources (Les
prévisions

ignorent les calendriers des ressources).
Quelqu'un peut m'aider?
Merci d'avance

Yves