Discussion :

[eloxford]

Bonjour à tous,

Je cherche à faire des sommes conditionnelles de cellules provenant d'un nombre de pages variables d'un classeur.

Par exemple, obtenir la somme des cellules B1 de l'ensemble des feuilles du classeur dont la cellule A1 répond à un critère donné (A1>0).

Le nombre de feuilles du classeurs est amené à varier très régulièrement.

J'ai donc essayé de construire une fonction codée comme macro, avec l'idée:

Somme_feuilles_actives(Cellule de la feuille ou se trouve la condition à vérifier, valeur à laquelle comparer ce critère, référence de la cellule à ajouter à la somme)

Par exemple, la formule, =Somme_feuilles_actives("A1","oui","C1"), renverrait la somme des cellules C1 des feuilles du documents dont la cellule A1 contient la valeur "oui".

Ce qui m'a donné:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Function Somme_feuilles_actives(cellcritere as String, critere as string, celltoadd as String)
 
Dim LaSomme as Double
Dim Ensemble_Feuilles
Dim oFeuille
Dim ocellule
Dim ocellule2
Dim i As integer
 
Ensemble_Feuilles=ThisComponent.getSheets()
 
For i=0 to Ensemble_Feuilles.getCount()-1
 
	oFeuille=Ensemble_Feuilles.getbyindex(i)
	ocellule=oFeuille.getCellRangeByName(cellcritere)
 
	if ocellule.getString()=critere then
		ocellule2=oFeuille.getcellrangebyname(celltoadd)
		LaSomme = LaSomme + ocellule2.getValue()
	endif
 
Next
 
Somme_feuilles_actives=LaSomme
 
End Function

Jusque là, pas de problème, j'ai galéré un peu mais mon code fonctionne.

Par contre lorsque je cherche à m'en servir comme fonction, je m'aperçois que les valeurs des cellules dans lesquelles j'ai utilisé cette fonction ne se mettent à jour que lorsque je viens intervenir manuellement sur leur contenu, mais pas du tout lorsque les valeurs des feuilles cibles changent.

Comment faire pour que cette formule se comporte comme un formule standard de Libre Office et laisse les cellules se valoriser automatiquement ?

Une idée?

En vous remerciant pour vos conseils,

[Amélie Ladoque]

Sans voir le document servant à cette macro, je ne vois pas ce qu'on pourrait vous répondre.

[eloxford]

Bonjour,

Malheureusement, je ne peux pas vous joindre le fichier sur lequel je travaille.

Cela dit, je ne pense pas qu'il y ait besoin de mon fichier pour comprendre mon souci.

Simplement, sans utiliser "Recalculer" ou la touche fonction F9, la valeur de la cellule utilisant ma fonction ne se met pas à jour.

Sur Excel, la solution était de déclarer "Application.Volatile" en début de fonction, mais cela ne fonctionne pas sur Libre Office.

Je cherche toujours une solution, si certains ont une idée...

[mach1974]

Application.Calculation = xlAutomatic

[Amélie Ladoque]

Malheureusement, je ne peux pas vous joindre le fichier sur lequel je travaille.

Bien sûr on ne réclame jamais le vrai document.
C'est à vous de fabriquer quelque chose de dépersonnalisé qui permette de reproduire.

Cela dit, je ne pense pas qu'il y ait besoin de mon fichier pour comprendre mon souci.

Vous pensez mal dans ce cas.
Si c'était si simple, vous auriez eu une solution depuis le temps.

[mach1974]

Bonsoir,
Dans la macro il faut déclarer Application.Calculation = xlAutomatic pour rendre le calcul automatique
Cordialement

[Amélie Ladoque]

il faut déclarer Application.Calculation = xlAutomatic pour rendre le calcul automatique

C'est du VBA, ça ne marchera pas avec Calc.

[mach1974]

VBA fonctionne avec CALC depuis longtemps

[Amélie Ladoque]

[jurassic pork]

Hello,
je n'ai peut-être pas tout compris mais il me semble qu'il n'y a pas besoin de code basic pour faire ce qui est demandé, une simple formule suffit. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A1="oui";SOMME(Feuille1.C1:Feuille3.C1);0)

Si la cellule A1 est égale à oui on fait la somme des cellules C1 de toutes les feuilles de Feuille1 à Feuille3 sinon on met 0


Sachant que dans la cellule C1 de la feuille2 il y a 2 et dans la cellule de la feuille3 il y a 5

Ami calmant, J.P

[Z_662]

Bonjour.

Sur Excel, la solution était de déclarer "Application.Volatile" en début de fonction, mais cela ne fonctionne pas sur Libre Office.
Je cherche toujours une solution, si certains ont une idée...

Tu peux utiliser la fonction de cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MAINTENANT()

. Elle a la particularité de s'actualiser à chaque fois que le classeur est modifié. Il y a de fortes chances (je n'ai pas testé) que cela force la réévaluation des formules.
De mémoire cela fonctionne aussi lorsqu'elle est utilisée comme formule nommée et passée en argument à ta fonction codée.
A+