Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Project mise en forme des tâches

mise en forme des tâches

2 réponses
Avatar
brucat
Bonjour,

J'aimerai via VBA que les taches de niveau 1 soit en couleur selon le
colorie indiqué dans le champ Number 1 mais pour tout mon projet.

Voici mon code comment l'adapter pour tout le projet.

Sub chgt()

Dim oTache As Task

For Each oTache In ActiveSelection.Tasks

If oTache.Summary And oTache.OutlineLevel = 1 Then
SelectRow
Font Color:=oTache.Number1
End If

Next oTache

End Sub



Merci.
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Gérard Ducouret
Bonjour Brucat,
Essaie cela :

Sub chgt()
Dim oTache As Task, i As Integer
For Each oTache In ActiveProject.Tasks
i = i + 1
If oTache.Summary And oTache.OutlineLevel = 1 Then
SelectRow row:=i, RowRelative:úlse
Font Color:=oTache.Number1
End If
Next oTache
End Sub



"brucat" a écrit dans le message de
news:djh15b$f1d$
Bonjour,

J'aimerai via VBA que les taches de niveau 1 soit en couleur selon le
colorie indiqué dans le champ Number 1 mais pour tout mon projet.

Voici mon code comment l'adapter pour tout le projet.

Sub chgt()

Dim oTache As Task

For Each oTache In ActiveSelection.Tasks

If oTache.Summary And oTache.OutlineLevel = 1 Then
SelectRow
Font Color:=oTache.Number1
End If

Next oTache

End Sub



Merci.






Avatar
brucat
merci
c'est super

"Gérard Ducouret" a écrit dans le message
de news:
Bonjour Brucat,
Essaie cela :

Sub chgt()
Dim oTache As Task, i As Integer
For Each oTache In ActiveProject.Tasks
i = i + 1
If oTache.Summary And oTache.OutlineLevel = 1 Then
SelectRow row:=i, RowRelative:úlse
Font Color:=oTache.Number1
End If
Next oTache
End Sub



"brucat" a écrit dans le message de
news:djh15b$f1d$
Bonjour,

J'aimerai via VBA que les taches de niveau 1 soit en couleur selon le
colorie indiqué dans le champ Number 1 mais pour tout mon projet.

Voici mon code comment l'adapter pour tout le projet.

Sub chgt()

Dim oTache As Task

For Each oTache In ActiveSelection.Tasks

If oTache.Summary And oTache.OutlineLevel = 1 Then
SelectRow
Font Color:=oTache.Number1
End If

Next oTache

End Sub



Merci.