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
à mettre dans le module de Total 2018 et appeler par un bouton ou dans Worksheet_Activate :
VB:
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