OVH Cloud OVH Cloud

[Proj2003] Calcul VBA

2 réponses
Avatar
Jinroh
Bonjour

J'ai créé un champ de type "Cost1" dans la table des ressources. J'aimerais
faire la somme de toutes les valeurs comprises dans la colonnes "Cost1" en
VBA pour l'afficher dans un msgbox.

Est-ce que quelqu'un aurait déjà cela sous la main ?

Merci d'avance

2 réponses

Avatar
Jan De Messemaeker
Bonjour,

Sous la main non, mais c'est tellement court...
Entre parenthèses, n'y a-t-il pas moyen d'arriver à cela en combinant un
groupage avec une personnalisation du champs Cost1?

Sinon, il y a lieu d'intégrer ceci dans ta procédure:

Dim Copain as resource
Dim CT as double
CT=0
For each copain in activeproject.resources
if not copain is nothing then
ct=ct+copain.cost1
end if
next copain
'CT contient maintenant le total des champs Cost1 et peut être montré dans
un MsgBox

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/
+32-495-300 620
"Jinroh" schreef in bericht
news:
Bonjour

J'ai créé un champ de type "Cost1" dans la table des ressources.
J'aimerais

faire la somme de toutes les valeurs comprises dans la colonnes "Cost1" en
VBA pour l'afficher dans un msgbox.

Est-ce que quelqu'un aurait déjà cela sous la main ?

Merci d'avance


Avatar
Jinroh
Merci

mais au fait le groupement n'irait pas car le but c'est d'envoyer ensuite le
résultat dans le coût fixe d'une tâche donnée. Donc voilà.

Merci encore

Cordialement

"Jan De Messemaeker" wrote:

Bonjour,

Sous la main non, mais c'est tellement court...
Entre parenthèses, n'y a-t-il pas moyen d'arriver à cela en combinant un
groupage avec une personnalisation du champs Cost1?

Sinon, il y a lieu d'intégrer ceci dans ta procédure:

Dim Copain as resource
Dim CT as double
CT=0
For each copain in activeproject.resources
if not copain is nothing then
ct=ct+copain.cost1
end if
next copain
'CT contient maintenant le total des champs Cost1 et peut être montré dans
un MsgBox

Bien à toi,

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
http://users.online.be/prom-ade/
+32-495-300 620
"Jinroh" schreef in bericht
news:
Bonjour

J'ai créé un champ de type "Cost1" dans la table des ressources.
J'aimerais

faire la somme de toutes les valeurs comprises dans la colonnes "Cost1" en
VBA pour l'afficher dans un msgbox.

Est-ce que quelqu'un aurait déjà cela sous la main ?

Merci d'avance