XL 2016 [RESOLU] Somme des onglets nommés janvier 18, février 18...

[ivan27]

Bonjour le forum,

J'ai un classeur avec des onglets nommés janvier 18, février 18, mars 18.... et des tableaux identiques sur chaque onglet. Je souhaite faire la somme de ces tableaux, dans une feuille ''TOTAL 2018''
Le problème c'est que ces onglets peuvent être séparés par 2 à 3 feuilles intermédiaires.
Merci d'avance pour votre aide.
Bonne journée à tous
Ivan

 

[eriiic]

Bonjour,

à mettre dans le module de Total 2018 et appeler par un bouton ou dans Worksheet_Activate :

Sub maj()
    Dim sh As Worksheet, tot As Double
    For Each sh In Worksheets
        If IsDate(sh.Name) And Right(sh.Name, 2) = "18" Then
            tot = tot + sh.[B2]
        End If
    Next sh
    [B2] = tot
End Sub

 

[Lone-wolf]

Bonjour ivan, eriiiic

Sans bouton sur la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Call maj
End Sub

 

[BOISGONTIER]

Bonsoir,

=SOMMEPROD(N(INDIRECT("'"&TEXTE(DATE(2018;LIGNE($1:$3);1);"mmmm aa")&"'!B2")))

Entre 2 mois (C2:mois début / D2: mois fin)

=SOMMEPROD(SOMME.SI(INDIRECT("'"&TEXTE(DATE(2018;LIGNE(INDIRECT(MOIS("1/"&C2)&":"&MOIS("1/"&D2)));1);"mmmm aa")&"'!b2");">0"))

http://boisgontierjacques.free.fr/pages_site/sommeprod3D.htm

jb

 

[ivan27]

Bonsoir eriiiic, lone-wolf, boisgontier, le forum
Merci infiniment pour votre réactivité et la qualité de vos réponses.
Excellent week-end à tous
Ivan