XL 2016 SOMME INDEX entre deux onglets

[emeline51]

Bonjour,

Je me permets de venir vers vous pour vous demander de l'aide.
Ci-joint un fichier excel pour alimenter mon problème

L'objectif est d’additionner dans l'onglet Synthèse, les valeurs des onglets compris entre les onglets aaa et zzz (pour me permettre de rajouter des onglets au fil du temps), selon les critères semaines (ligne1) et personnes (colonne a).
J'ai bien la formule pour aller chercher dans un onglet précis (cf. tableau1), mais je n'arrive pas à sommer les onglets.
Quelqu'un aurait la solution ?

Merci d'avance pour votre aide
Emeline

 

[emeline51]

Rajoutez Application.Volatile :

Function Calcule(Qui, Semaine)
Dim Somme, Sh, A%, B%, Ligne%, Colonne%, Début%, Fin%
Application.Volatile
Somme = 0
Début = 0: Fin = 1

La fonction sera réactulaisée à chaque nouveau recalcul de la feuille.
( mais comme peut être lourd suivant les fonctions, par défaut je ne le mets pas de base.)

Méthode Application.Volatile (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Ok effectivement ça semble ralentir pas mal le fichier. A voir dans la pratique quotidienne. A tout hasard si j'insère un bouton permettant l'actualisation des données une fois le fichier complété serait un moyen de rendre le fichier moins lourd ?

 

[sylvanu]

... c'est pour ça qu'on évite ! 😉
Retirez cette ligne Volatile. Dans votre feuille Synthèse, on peut mettre du code . Collez y :

Sub Worksheet_Activate()
     Calculate
End Sub

Les calculs s'effectueront automatiquement que lorsque vous sélectionnerez la feuille Synthèse. C'est mieux qu'un bouton.

 

[emeline51]

... c'est pour ça qu'on évite ! 😉
Retirez cette ligne Volatile. Dans votre feuille Synthèse, on peut mettre du code . Collez y :

Sub Worksheet_Activate()
     Calculate
End Sub

Les calculs s'effectueront automatiquement que lorsque vous sélectionnerez la feuille Synthèse. C'est mieux qu'un bouton.
Regarde la pièce jointe 1087264

Il y en a tellement a apprendre sur Excel !
Par contre le code ne fonctionne pas, l'actualisation ne se fait pas

 

[sylvanu]

Vous l'avez bien mis dans la feuille Synthèse, pas autre part ?

 

[emeline51]

Vous l'avez bien mis dans la feuille Synthèse, pas autre part ?

oui oui j'ai bien fait attention à ça

 

[sylvanu]

Oups! Le recalcul ne se fait pas car les deux paramètres dans la formule n'ont pas bougés.
Donc on va tricher.
Modifiez votre Worksheet_Activate :

Sub Worksheet_Activate()
    Ancien = [B1]
    [B1] = Ancien
    Calculate
End Sub

Comme la cellule B1 à changer, même si elle conserve la même valeur, tout est recalculé.
Voir PJ.

 

[emeline51]

Oups! Le recalcul ne se fait pas car les deux paramètres dans la formule n'ont pas bougés.
Donc on va tricher.
Modifiez votre Worksheet_Activate :

Sub Worksheet_Activate()
    Ancien = [B1]
    [B1] = Ancien
    Calculate
End Sub

Comme la cellule B1 à changer, même si elle conserve la même valeur, tout est recalculé.
Voir PJ.

C'est parfait comme ça 👍 merci encore