on vient de me faire une bonne blague. Voic la demande : une personne
utilise project sans ressource, donc elle saisie des tâches et des coûts.
lorsque le projet demarre, elle voudrait en saisissant un coût engagé que
cela lui calcule le % d'achèvement réalisé.
ex, tâche avec coût budgété (forfait) de 1000 ?, je verse 500?, donc je veux
calculer le %. Comment faire dans project 2000 ?
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, Insérer le champ Coût1 et le renommer "Engagé" pour y saisir le montant engagé à chaque point d'avancement. Insérer le champ Numéro1 et le renommer "%" pour y calculer le pourcentage par rapport au coût fixe : y saisir la formule : [Coût1]/[Coût fixe]
Exécuter la routine VBA suivante pour copier le % ainsi calculé dans la colonne %Achevé :
Sub Pourcentage_de_cout() Dim oTache As Object
For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then oTache.PercentComplete = oTache.Number1 * 100 End If Next End Sub 'Routine à perfectionner pour traiter tous les cas de figure....
Est-ce que cela marche ?
Gérard Ducouret [Project MVP] PragmaSoft - Paris
"boblebob" a écrit dans le message de news:
slt,
on vient de me faire une bonne blague. Voic la demande : une personne utilise project sans ressource, donc elle saisie des tâches et des coûts. lorsque le projet demarre, elle voudrait en saisissant un coût engagé que cela lui calcule le % d'achèvement réalisé. ex, tâche avec coût budgété (forfait) de 1000 ?, je verse 500?, donc je veux
calculer le %. Comment faire dans project 2000 ?
merci
-- A+
Bob ----
Bonjour,
Insérer le champ Coût1 et le renommer "Engagé" pour y saisir le montant
engagé à chaque point d'avancement.
Insérer le champ Numéro1 et le renommer "%" pour y calculer le pourcentage
par rapport au coût fixe :
y saisir la formule :
[Coût1]/[Coût fixe]
Exécuter la routine VBA suivante pour copier le % ainsi calculé dans la
colonne %Achevé :
Sub Pourcentage_de_cout()
Dim oTache As Object
For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
oTache.PercentComplete = oTache.Number1 * 100
End If
Next
End Sub 'Routine à perfectionner pour traiter tous les cas de figure....
Est-ce que cela marche ?
Gérard Ducouret [Project MVP]
PragmaSoft - Paris
"boblebob" <nosp-00-boblebob@voila.fr> a écrit dans le message de
news:eL0rXXFVEHA.3692@TK2MSFTNGP09.phx.gbl...
slt,
on vient de me faire une bonne blague. Voic la demande : une personne
utilise project sans ressource, donc elle saisie des tâches et des coûts.
lorsque le projet demarre, elle voudrait en saisissant un coût engagé que
cela lui calcule le % d'achèvement réalisé.
ex, tâche avec coût budgété (forfait) de 1000 ?, je verse 500?, donc je
veux
Bonjour, Insérer le champ Coût1 et le renommer "Engagé" pour y saisir le montant engagé à chaque point d'avancement. Insérer le champ Numéro1 et le renommer "%" pour y calculer le pourcentage par rapport au coût fixe : y saisir la formule : [Coût1]/[Coût fixe]
Exécuter la routine VBA suivante pour copier le % ainsi calculé dans la colonne %Achevé :
Sub Pourcentage_de_cout() Dim oTache As Object
For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then oTache.PercentComplete = oTache.Number1 * 100 End If Next End Sub 'Routine à perfectionner pour traiter tous les cas de figure....
Est-ce que cela marche ?
Gérard Ducouret [Project MVP] PragmaSoft - Paris
"boblebob" a écrit dans le message de news:
slt,
on vient de me faire une bonne blague. Voic la demande : une personne utilise project sans ressource, donc elle saisie des tâches et des coûts. lorsque le projet demarre, elle voudrait en saisissant un coût engagé que cela lui calcule le % d'achèvement réalisé. ex, tâche avec coût budgété (forfait) de 1000 ?, je verse 500?, donc je veux
calculer le %. Comment faire dans project 2000 ?
merci
-- A+
Bob ----
boblebob
salut,
ça marche merci, je n'ai pas utilisé ta routine mais j'ai un peu transformé la fonction : IIf([Coût]=0;0;[Coût réel]/[Coût]*100) (dommage pour le symbole % que je ne peux pas faire apparaître !)
merci
-- A+
Bob ----
"Gérard Ducouret" a écrit dans le message de news:
Bonjour, Insérer le champ Coût1 et le renommer "Engagé" pour y saisir le montant engagé à chaque point d'avancement. Insérer le champ Numéro1 et le renommer "%" pour y calculer le pourcentage par rapport au coût fixe : y saisir la formule : [Coût1]/[Coût fixe]
Exécuter la routine VBA suivante pour copier le % ainsi calculé dans la colonne %Achevé :
Sub Pourcentage_de_cout() Dim oTache As Object
For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then oTache.PercentComplete = oTache.Number1 * 100 End If Next End Sub 'Routine à perfectionner pour traiter tous les cas de figure....
Est-ce que cela marche ?
Gérard Ducouret [Project MVP] PragmaSoft - Paris
"boblebob" a écrit dans le message de news:
slt,
on vient de me faire une bonne blague. Voic la demande : une personne utilise project sans ressource, donc elle saisie des tâches et des coûts.
lorsque le projet demarre, elle voudrait en saisissant un coût engagé que
cela lui calcule le % d'achèvement réalisé. ex, tâche avec coût budgété (forfait) de 1000 ?, je verse 500?, donc je veux
calculer le %. Comment faire dans project 2000 ?
merci
-- A+
Bob ----
salut,
ça marche merci, je n'ai pas utilisé ta routine mais j'ai un peu transformé
la fonction : IIf([Coût]=0;0;[Coût réel]/[Coût]*100) (dommage pour le
symbole % que je ne peux pas faire apparaître !)
merci
--
A+
Bob
----
"Gérard Ducouret" <gerard.ducouret@wanadooNOSPAM.fr> a écrit dans le message
de news:ezrryRLVEHA.1952@TK2MSFTNGP12.phx.gbl...
Bonjour,
Insérer le champ Coût1 et le renommer "Engagé" pour y saisir le montant
engagé à chaque point d'avancement.
Insérer le champ Numéro1 et le renommer "%" pour y calculer le pourcentage
par rapport au coût fixe :
y saisir la formule :
[Coût1]/[Coût fixe]
Exécuter la routine VBA suivante pour copier le % ainsi calculé dans la
colonne %Achevé :
Sub Pourcentage_de_cout()
Dim oTache As Object
For Each oTache In ActiveProject.Tasks
If Not oTache Is Nothing Then
oTache.PercentComplete = oTache.Number1 * 100
End If
Next
End Sub 'Routine à perfectionner pour traiter tous les cas de figure....
Est-ce que cela marche ?
Gérard Ducouret [Project MVP]
PragmaSoft - Paris
"boblebob" <nosp-00-boblebob@voila.fr> a écrit dans le message de
news:eL0rXXFVEHA.3692@TK2MSFTNGP09.phx.gbl...
slt,
on vient de me faire une bonne blague. Voic la demande : une personne
utilise project sans ressource, donc elle saisie des tâches et des
coûts.
lorsque le projet demarre, elle voudrait en saisissant un coût engagé
que
cela lui calcule le % d'achèvement réalisé.
ex, tâche avec coût budgété (forfait) de 1000 ?, je verse 500?, donc je
veux
ça marche merci, je n'ai pas utilisé ta routine mais j'ai un peu transformé la fonction : IIf([Coût]=0;0;[Coût réel]/[Coût]*100) (dommage pour le symbole % que je ne peux pas faire apparaître !)
merci
-- A+
Bob ----
"Gérard Ducouret" a écrit dans le message de news:
Bonjour, Insérer le champ Coût1 et le renommer "Engagé" pour y saisir le montant engagé à chaque point d'avancement. Insérer le champ Numéro1 et le renommer "%" pour y calculer le pourcentage par rapport au coût fixe : y saisir la formule : [Coût1]/[Coût fixe]
Exécuter la routine VBA suivante pour copier le % ainsi calculé dans la colonne %Achevé :
Sub Pourcentage_de_cout() Dim oTache As Object
For Each oTache In ActiveProject.Tasks If Not oTache Is Nothing Then oTache.PercentComplete = oTache.Number1 * 100 End If Next End Sub 'Routine à perfectionner pour traiter tous les cas de figure....
Est-ce que cela marche ?
Gérard Ducouret [Project MVP] PragmaSoft - Paris
"boblebob" a écrit dans le message de news:
slt,
on vient de me faire une bonne blague. Voic la demande : une personne utilise project sans ressource, donc elle saisie des tâches et des coûts.
lorsque le projet demarre, elle voudrait en saisissant un coût engagé que
cela lui calcule le % d'achèvement réalisé. ex, tâche avec coût budgété (forfait) de 1000 ?, je verse 500?, donc je veux
