XL 2019 additionner des cellules en fonction

Goo69 · 23 Août 2024

Bonjour,

Je cherche une formule pour additionner des cellules d'un tableau qui dépend d'un point de départ horizontal fixe (janvier en colonne B), d'un point qui évolue dans le temps (= la variable horizontale : février en colonne C, mars en colonne D) et un critère vertical.
Exemple en pj avec une formule test qui ne fonctionne pas.
Comment s'y prendre ?

Merci !

sousou · 23 Août 2024

Bonjour
une fonction perso pour le fun
Function additionne(x, y)
With ActiveSheet
Set tableau = .Range("a1:m5")
lg = tableau.Columns(1).Rows.Find(x).Row
col = tableau.Rows(1).Rows.Find(y).Column
For n = 2 To col
valeur = .Cells(lg, n) + valeur
Next
End With
additionne = valeur
End Function

JHA · 23 Août 2024

Bonjour à tous,

Ajout MFC pour colorer la plage de recherche.

VB:

=SOMME(DECALER($B$1;EQUIV($B$8;$A$2:$A$5;0);;;MOIS(1&$C$8)))

Formule MFC

Code:

=EQUIV(B2;DECALER($B$1;EQUIV($B$8;$A$2:$A$5;0);;;MOIS(1&$C$8));0)

JHA

Goo69 · 23 Août 2024

Jeannette à dit:
Bonjour,
avec cette formule?

Code:

=SOMME(DECALER($A$1;EQUIV($B$8;A:A;0)-1;1;;MOIS("1/"&$C$8)))

@Jeannette Merci c'est exactement ça. Je découvre donc la somme dynamique. Il faut maintenant que je m'entraine à utiliser cette imbrication de fonctions hyper utile !!!

Goo69 · 23 Août 2024

sousou à dit:
Bonjour
une fonction perso pour le fun
Function additionne(x, y)
With ActiveSheet
Set tableau = .Range("a1:m5")
lg = tableau.Columns(1).Rows.Find(x).Row
col = tableau.Rows(1).Rows.Find(y).Column
For n = 2 To col
valeur = .Cells(lg, n) + valeur
Next
End With
additionne = valeur
End Function

Merci @sousou , ça pourra certainement servir. Pour l'instant je reste hors VBA.

Goo69 · 23 Août 2024

JHA à dit:
Bonjour à tous,

Ajout MFC pour colorer la plage de recherche.

VB:

=SOMME(DECALER($B$1;EQUIV($B$8;$A$2:$A$5;0);;;MOIS(1&$C$8)))

Formule MFC

Code:

=EQUIV(B2;DECALER($B$1;EQUIV($B$8;$A$2:$A$5;0);;;MOIS(1&$C$8));0)

JHA

Merci @JHA, cet ajout sera très utile pour une version de présentation !

Goo69 · 23 Août 2024

JHA à dit:
Bonjour à tous,

Ajout MFC pour colorer la plage de recherche.

VB:

=SOMME(DECALER($B$1;EQUIV($B$8;$A$2:$A$5;0);;;MOIS(1&$C$8)))

Formule MFC

Code:

=EQUIV(B2;DECALER($B$1;EQUIV($B$8;$A$2:$A$5;0);;;MOIS(1&$C$8));0)

JHA

@JHA, j'ai un soucis au niveau de l'addition.
Si je modifie le mois de départ (de janvier on passe à juillet), alors l'addition des cellules n'est plus cohérente.
Je ne connais pas assez la fonction DECALLER() pour trouver une solution...

JHA · 23 Août 2024

Bonjour à tous,

Avec un choix du début et de fin.
MFC modifiée

VB:

=SOMME(DECALER($B$1;EQUIV($B$8;$A$2:$A$5;0);EQUIV($C$8;$B$1:$M$1;0)-1;;EQUIV($D$8;$B$1:$M$1;0)-(EQUIV(C8;$B$1:$M$1;0)-1)))

JHA

XL 2019 additionner des cellules en fonction

Goo69

XLDnaute Nouveau

Pièces jointes

sousou

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

Goo69

XLDnaute Nouveau

Goo69

XLDnaute Nouveau

Goo69

XLDnaute Nouveau

Goo69

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires