Microsoft 365 comment rendre dynamique une feuille synthese qui somme les memes cellules de feuilles differentes

sylvanu à dit:

Bonjour Taristrou, et bienvenu sur XLD,
Après moult essais je suis arrivé à la conclusion que Indirect est incompatible du multipages.
Peut être est ce une erreur d'appréciation et que quelqu'un vous trouvera une solution.
Sinon, êtes vous ouvert au VBA ?

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Une alternative avec decaler et indirect pour le total des mois.

JHA

Cliquez pour agrandir...

Taristrou à dit:

Vous auriez une idée ?

Cliquez pour agrandir...

Sub Worksheet_Activate()
    Dim Début$, Fin$, F, GoDeb%, GoFin%
    Sheets("Rapport").Range("B2:AV32").ClearContents ' on efface le tableau existant
    Application.ScreenUpdating = False
    Début = Sheets("Select").Range("B2")            ' feuille de début
    Fin = Sheets("Select").Range("B3")              ' feuille de fin
    For Each F In Worksheets                        ' on supprime les "-" car texte donc génère des erreurs
        Sheets(F.Name).Range("B2:AV32").Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
    Next F
    GoDeb = 0: GoFin = 1
    For Each F In Worksheets
        If F.Name = Début Then GoDeb = 1            ' si feuille debut atteinte
        If GoDeb + GoFin = 2 Then                   ' si les deux flags valent 1 on additionne
            Formule = Formule & "+" & F.Name & "!B2"    ' on construit la formule
        End If
        If F.Name = Fin Then GoFin = 0              ' si feuille fin atteinte
    Next F
    [B2:AV32].FormulaLocal = "=" & Mid(Formule, 2)  ' on colle la formule
    [F2:F32].FormulaLocal = "=D2/C2"                ' on colle la formule calcul %
    [B2:AV32] = [B2:AV32].Value                     ' on remplace par les valeurs
End Sub

sylvanu à dit:

Perso, non.
Alors au cas où, une PJ avec cette macro :

VB:

Sub Worksheet_Activate()
    Dim Début$, Fin$, F, GoDeb%, GoFin%
    Sheets("Rapport").Range("B2:AV32").ClearContents ' on efface le tableau existant
    Application.ScreenUpdating = False
    Début = Sheets("Select").Range("B2")            ' feuille de début
    Fin = Sheets("Select").Range("B3")              ' feuille de fin
    For Each F In Worksheets                        ' on supprime les "-" car texte donc génère des erreurs
        Sheets(F.Name).Range("B2:AV32").Replace What:="-", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
    Next F
    GoDeb = 0: GoFin = 1
    For Each F In Worksheets
        If F.Name = Début Then GoDeb = 1            ' si feuille debut atteinte
        If GoDeb + GoFin = 2 Then                   ' si les deux flags valent 1 on additionne
            Formule = Formule & "+" & F.Name & "!B2"    ' on construit la formule
        End If
        If F.Name = Fin Then GoFin = 0              ' si feuille fin atteinte
    Next F
    [B2:AV32].FormulaLocal = "=" & Mid(Formule, 2)  ' on colle la formule
    [F2:F32].FormulaLocal = "=D2/C2"                ' on colle la formule calcul %
    [B2:AV32] = [B2:AV32].Value                     ' on remplace par les valeurs
End Sub

1- La macro s'active automatiquement lorsqu'on sélectionne la feuille "Rapport"
2- En colonne F je fais le ration colD/colC
3- Dans les feuilles j'ai supprimé les "-" qui sont du texte et génère des erreurs en VBA dans les formules.

Cliquez pour agrandir...

Hasco à dit:

Bonjour,

Voici une proposition par requête power query et TCD

Lorsque les données ou la sélection De A changent, enregistrer le classeur puis actualiser tout (Données/Actualiser tout)

Comme il n'y a pas de tableau structuré dans le fichier, la requête l'interroge comme un fichier extérieur, c'est pourquoi j'ai rajouté la variable "Fichier" dans le tableau (devenu structuré) de sélections, vérifier sa valeur avant de rafraîchir la requête ou le tcd

Pour certaines colonnes on ne sait pas s'il s'agit de valeurs monétaires ou unitaires à vérifier.

Cliquez pour agrandir...

ALS35 à dit:

Bonjour à tous,
Une proposition par formule (pas trop simple!!) en B3, avec la liste des feuilles existantes et le choix en Feuille Select. Cette formule peut se recopier vers le bas et vers la droite, à tester.
Cordialement

Cliquez pour agrandir...

Taristrou à dit:

Bonjour Hasco,

Cela fonctionne, et c'est magique pour moi !
J'en demande beaucoup ... mais si vous avez 5 minutes, si vous pouviez m'expliquer rapidement les différentes étapes, en particulier dans Power Query, cela pourra m'aider à réadapter cela à mon fichier final.

Merci beaucoup !
Cordialement,

Cliquez pour agrandir...