[XL-2003] Incorporation d'éléments dans feuille [Résolu]

[cluster26]

Bonjour,

J'ai bâti un classeur pour exemple (très simple) qui me permet en permutant les feuilles début et fin d'obtenir les résultats dans une feuille (cumuls) pour la période souhaitée.

Tout l'intérêt de ce tableau est qu'il inhibe la recomposition des formules dans la feuille cumuls. En effet, c'est le positionnement des feuilles début et fin qui attribuent automatiquement le résultat.

Toutefois, je bloque sur un point !... En effet, lorsque j'imprime la feuille Cumuls, je perds la notion de bornage et j'ignore quelle est la période sélectionnée.

Concrètement, dans le tableau dont vous trouverez le lien de téléchargement ci-dessous, comment faire apparaître dans la feuille cumuls que les totaux sont représentatifs, en l'occurrence dans cet exemple, de la période de Janvier à Mars.

Dans la feuille Cumuls, j'ai fléché la zone dans laquelle je souhaiterais voir apparaître automatiquement les mois : janvier, février, mars.

J'avais bien imaginé de modifier les formules dans la feuille cumuls, mais je perd tout l'intérêt lié à la réalisation et au fonctionnement de ce classeur !...

En effet, à chaque fois que je déplacerai la feuille fin (ou début), il m'incombera de redéfinir dans la feuille cumuls les formules saisies préalablement, ce qui me paraît vraiment fastidieux (et sujet à erreurs.........) !..


En espérant avoir été clair !

Ci-joint lien du fichier :
http://www.neufgiga.com/n/50-2/share...4f2ffa7197d0c/

Je vous remercie à l'avance pour votre collaboration.

[BlueMonkey]

Bonsoir,

Je ne vois pas de solution simple sans macro...
En intégrant le code ci-dessous dans la feuille cumuls, cette macro se chargera de refaire le lien entre la feuille cumuls et
les différentes feuilles mensuelles.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Worksheet_Activate()
    ' Efface toutes les cellules contigües à I5 (hors I4)
    [I5].CurrentRegion.Offset(1).ClearContents
 
    Dim ws As Worksheet
    Dim wsCount As Integer
    wsCount = 0
 
    For Each ws In Worksheets
        If ws.Name = "début" Then
            wsCount = 1
        ElseIf ws.Name = "fin" Then
            Exit For
        ElseIf wsCount > 0 Then
            'complète l'étiquette mois à l'aide du nom d'onglet
            [I4].Offset(wsCount).Value = "Du mois de : " & ws.Name
            ' insert un lien entre le total mensuel et la feuille cumul
            [J4].Offset(wsCount).Formula = "=" & ws.Name & "!" & ws.[G10].Address
            wsCount = wsCount + 1
        End If
    Next ws
End Sub
End Sub

[cluster26]

@bluemonkey

Bonjour,

Merci pour la réponse.

Cela fonctionne impeccablement bien !..

Cordialement.