Calcul inter-feuille

[VASSAS]

Bonjour,

J'ai monté un tableau composé de feuilles "agent" et une feuille synthèse où est calculé le cumul des feuilles agent. A tout moment des feuilles agent peuvent être rajoutées.
Pour effectuer les calculs, j'ai élaboré la macro suivante :

Sub CalculSynthese()
Dim Feuille As Worksheet
NF = Sheets("synthese").Index - 1 'nombre de feuilles agents
For j = 2 To 16 'numéro de colonnes de B à P
For l = 5 To 23 'numéro de lignes de 5 à 23
result = 0
For Each Feuille In Sheets()
If Feuille.Index < Sheets("synthese").Index Then 'les feuilles avant la feuille synthese
Feuille.Select
tot = Cells(l, j).Value 'calcul du cumul
result = result + tot
End If
Next Feuille
Sheets("synthese").Select 'report des résultats dans la feuille synthese
Cells(l, j) = result 'cumul
Cells(l + 23, j) = result / NF 'calcul de la moyenne et report du résultat 23 lg plus bas
Next l
Next j
End Sub

Ca fonctionne très bien mais les cellules étant mises à jour les unes après les autres, celà demande un certain temps qui devient un temps certain suivant le nombre de feuilles.

Ma question : avez-vous une meilleure solution ?

Merci.

 

[ChTi'160]

Salut "VASSAS"
pourrais tu mettre un exemple 2 feuilles agent et la feuille "synthese"?
avec des références bidon bien sûr lol
pour facilite la compréhension et donc le travail
celà est sûrement possible
A+++
Jean Marie

 

[Vassas Agnès]

Bonjour,

Voici un exemple de mon travail.

Merci de t'intéresser à mon cas.

 

[Vassas Agnès]

Désolée, je m'aperçois que mon fichier est vide.
@+

 

[ChTi'160]

re "Vassas Agnès
un exemple avant de m'apercevoir que tu avais posté
donc je n'ai pas encore vu ton fichier je regarde ca demain
en pièce jointe mon interpretation
A demain
A+++
Jean Marie

 

[Vassas Agnès]

Ca marche impeccable ! et les résultats sont instantanés
Exactement ce qu'il me fallait.

Merci beaucoup

 

[Vassas Agnès]

C'est encore moi, juste pour te signaler que j'ai aménagé ta macro pour que les cellules soient remises à blanc avant le calcul sinon il y a cumul au précédent résultat.

Encore merci et bon week-end