Somme par mois en VBA

Bonjour

j'espère que je trouve quelqu'un qui m'aide

je cherche de l'aide svp

j'ai des nombre chaque mois je les insère dans la feuil1 du fichier excel

à la fin de chaque année ou le début de nouvel an je fais la somme du janvier jusqu'à décembre

et j'insère la somme dans la même feuil1 dans l'anglet année

j'ai un user forme contient deux page

la première page deux combobox pour le mois et l'année et un bouton calcul

et la deuxième page un combobox pour l'année

je veux quand l'année en cours 2021 se termine (décembre 2021)

je fais la somme (si elle se termine pas je fais pas la somme)

exemple maintenant je fais le calcul de la somme juste pour les année précedente

et je mets un test (ou je ne sais pas quoi) pour que je fasse le calcul dés que 2021 se termine

et j'applique cette procédure de calcul pour les année à venir aussi

merci

amicalement

Bonjour,

Essayez ceci :

Formule en F2:

=SOMMEPROD((ANNEE($A2:$A1000)=$E2)*($B2:$B1000))

à tirer vers le bas.

Cdlt

c'est pas possible en vba

en plus il fait la somme même pour l'année 2021 chose que je peux pas faire du moment c'est pas encore terminé

parce que j'ai tout un code à faire sa c'est juste une partie

merci

Si vous ne voulez pas voir la somme de l'année en cours qu n'est pas encore terminée, la formule devient:

=SI(E2=ANNEE(AUJOURDHUI());"";SOMMEPROD((ANNEE($A2:$A1000)=$E2)*($B2:$B1000)))

Maintenant, rien ne vous empêche d'enregistrer cette formule en utilisant l'enregistreur de macro, de l'appliquer sur la plage de votre choix et d'e remplacer la formule par les valeurs obtenues.

Ce qui donne en VBA:

    Dim DerLig_1 As Long, DerLig_2 As Long
    DerLig_1 = Range("A" & Rows.Count).End(xlUp).Row
    DerLig_2 = Range("E" & Rows.Count).End(xlUp).Row
    Range("F2:F" & DerLig_2).FormulaR1C1 = "=IF(RC5=YEAR(TODAY()),"""",SUMPRODUCT((YEAR(RC1:R[" & DerLig_1 & "]C1)=RC5)*(RC2:R[" & DerLig_1 & "]C2)))"
    Range("F2:F" & DerLig_2).Value = Range("F2:F" & DerLig_2).Value

la formule ne donne pas les bonne chiffres :(

Ah bon! fenêtre de gauche avec vos valeurs, fenêtre de droite, valeurs obtenues avec la formule, vous voyez beaucoup de différences ?