[Résolu] Cumul hebdomadaire pour bilan

[Ixos]

Bonjour,
J'ai un tableau hebdomadaire dont je souhaite cumuler les résultats sur une autre feuille, afin de faire les bilans (mois, trimestre, année....)
Quelqu'un peut-il m'aider???

[priskim]

Utilise cette feuille pour l'exemple regarde dans les cellules pour voir les formules.

http://oooforum.free.fr/cijoint/fichier ... 093609.ods

[Ixos]

Ok, je te remercies pour la rapidité de la réponse, j'étudies ta feuille et te tiens au courant

[Ixos]

C'était sympa, mais apparemment, ça ne colle pas ou bien je m'explique, toutes les semaines, j'utilise la même feuille(pour eviter d'en avoir 52) avec des données et un total, j'aimerai qe ce total se cumule sur une seconde feuille de manière à pouvoir faire le bilan en fin d'exercice. j'espère avoir été compréhensible
Merci

[lolo0323]

Pourquoi ne pas faire un copier/coller de ton resultat chaque semaine dans ta seconde feuille. Sinon, il faut faire une macro pour faire cette copie

[Dude]

Bonjour,
J'ai un tableau hebdomadaire dont je souhaite cumuler les résultats sur une autre feuille, afin de faire les bilans (mois, trimestre, année....)
Quelqu'un peut-il m'aider???

Regarde si la fonction de consolidation (menu Données / Consolider) ne répond pas à ton problème.

[Ixos]

merci pour vos réponses,
lolo0323,
c'est vrai que c'est simple ainsi et ça marche, je n'y avais pas pensé, mais j'aurais aimé trouvé la manip, "pour le fun"

Dude,
Je vais fouiner de ce côté et si je trouve rien, j'essaierai de poster un exemple qui sera plus parlant.
j'avais répondu hier soir mais fausse manoeuvre sans doute ... pas doué ixos !!!

[lolo0323]

Voici une petite macro qu devrait repondre à ton besoin.
Il faut l'executer à partir de ta cellule contenant ton resultat.
Elle calcule le numero de la semaine, puis copie ton resultat sur la deuxieme feuille et deplacant la cellule du nombre de semaine.

Code : Tout sélectionner

REM  *****  BASIC  *****

Option Explicit


sub TestMacro2
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim ActiveCell as object
dim ActiveWeek as integer
dim TestValeur as integer

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Rem ActiveCell = ThisComponent.getCurrentSelection
Rem Dim here As Object
ActiveCell=ThisComponent.CurrentSelection
TestValeur=ActiveCell.getValue()

dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args2())

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = "=NO.SEMAINE(AUJOURDHUI();2)"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())
ActiveCell=ThisComponent.CurrentSelection
ActiveWeek=ActiveCell.getValue()

args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args2())


rem ----------------------------------------------------------------------
args1(0).Name = "Nr"
args1(0).Value = 2

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ----------------------------------------------------------------------
args2(0).Name = "ToPoint"
args2(0).Value = "$A$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

args2(0).Name = "By"
args2(0).Value =ActiveWeek-1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args2())

ActiveCell=ThisComponent.CurrentSelection
ActiveCell.setValue(TestValeur)

end sub

J'ai eu un peu de mal, c'est ma premiere marcro sur OOo.