Discussion :

[Blaiz58]

Bonjour tout le monde,

Je cherche à faire la somme sur la plage ce-dessous mais sachant que cela peut varier selon les critères entrés.
En gros, les nombres de 1 à 12 à gauche représente les mois. Ainsi je souhaiterai trouver une fonction permettant de faire la somme sur 3 mois glissants mais si les 3 mois sont coupé par Décembre (12) alors retourner au mois de Janvier (1) en comptant bien évidemment les mois avant de la fin de l'année.

Exemple: si je dois faire la somme de 3 mois glissants à partir de Novembre, il faudra sommer Novembre (11), Décembre (12) et Janvier (1)

Je vous remercie pour votre aide.

[arosec]

Bonsoir,

Je propose la macro suivante (à ajouter dans un module du classeur).
Pour l'utiliser, c'est simple:
=SommeGlissante($B$1:$B$12;3;$A1)
=SommeGlissante($B$1:$B$12;3;$A2)
...
=SommeGlissante($B$1:$B$12;3;$A12)

Le premier paramètre correspond à la liste des valeurs des différents mois.
Ex: $B$1:$B$12

Le second paramètre est le nombre de mois à sommer
Ex: 3

Le troisième paramètre est le mois de la ligne en cours.
Ex: $A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Option Explicit
 
Public Function SommeGlissante(rangeDonnees As Range, _
                               nombreGlissant As Integer, _
                               indiceActuel As Integer) As Double
Dim i As Integer
Dim v As Double
Dim m As Integer
 
  If rangeDonnees Is Nothing Then Exit Function
  If nombreGlissant < 1 Or _
     nombreGlissant > rangeDonnees.Rows.Count Or _
     indiceActuel < 1 Or _
     indiceActuel > rangeDonnees.Rows.Count Then Exit Function
 
  v = 0
  m = indiceActuel
  For i = 1 To nombreGlissant
    v = v + rangeDonnees(m, 1)
    If m = rangeDonnees.Rows.Count Then
      m = 1
    Else
      m = m + 1
    End If
  Next i
  SommeGlissante = v
 
End Function

Cdlt,

[Blaiz58]

Merci beaucoup arosec c'est parfait ce que tu m'as donné !