Dans le diagramme de Gantt est-il possible de pr=E9fixer=20
automatiquement les noms de taches avec le nom de la tache=20
r=E9capitulative sup=E9rieure ?
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, Cela peut se faire avec une routine VBA telle que la suivante : NB : le nom de la tâche parent est déposé dans le champ Text4 qui doit être libre...
Gérard Ducouret [Project MVP] PragmaSoft ® - Paris
Sub Rappel_du_Récap() Dim i As Integer, oTache As Object For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then If oTache.Summary = False Then oTache.Text4 = oTache.OutlineParent.OutlineParent.Name End If End If Next oTache End Sub
"jm" a écrit dans le message de news:0db501c4a186$48481670$ Bonjour,
Dans le diagramme de Gantt est-il possible de préfixer automatiquement les noms de taches avec le nom de la tache récapitulative supérieure ?
Cordialement
Jean-Marc
Bonjour,
Cela peut se faire avec une routine VBA telle que la suivante :
NB : le nom de la tâche parent est déposé dans le champ Text4 qui doit être
libre...
Gérard Ducouret [Project MVP]
PragmaSoft ® - Paris
Sub Rappel_du_Récap()
Dim i As Integer, oTache As Object
For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
If oTache.Summary = False Then
oTache.Text4 = oTache.OutlineParent.OutlineParent.Name
End If
End If
Next oTache
End Sub
"jm" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0db501c4a186$48481670$a301280a@phx.gbl...
Bonjour,
Dans le diagramme de Gantt est-il possible de préfixer
automatiquement les noms de taches avec le nom de la tache
récapitulative supérieure ?
Bonjour, Cela peut se faire avec une routine VBA telle que la suivante : NB : le nom de la tâche parent est déposé dans le champ Text4 qui doit être libre...
Gérard Ducouret [Project MVP] PragmaSoft ® - Paris
Sub Rappel_du_Récap() Dim i As Integer, oTache As Object For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then If oTache.Summary = False Then oTache.Text4 = oTache.OutlineParent.OutlineParent.Name End If End If Next oTache End Sub
"jm" a écrit dans le message de news:0db501c4a186$48481670$ Bonjour,
Dans le diagramme de Gantt est-il possible de préfixer automatiquement les noms de taches avec le nom de la tache récapitulative supérieure ?
