Discussion :

[JechercheT]

Bonjour,
J'ai une série de valeurs à sommer par mois, autrement dit, j'ai deux colonnes de taille variable: l'une contient les montants et l'autre contient les dates: mois-année.
SOMMEPROD((MOIS($A$2:$A$500)=1)*$E$2:$E$500)
....
SOMMEPROD((MOIS($A$2:$A$)=12)*$E$500:$E$500)
donne de bon résultat.
comment je peux l’intégrer en code VBA?
j'ai essayé ce code:
[Sub Formule()
For i= 1 To 12
Cells(i, 13) = Application.WorksheetFunction.SumIf(mois(Range("B2:B500")), "i", Range("A2:A500"))
Next
End Sub]
=> erreur§
Je débute en VBA donc ne me jugez pas sévèrement.

[Menhir]

Quand tu es à Rome, agit comme un romain.
Quand tu fais du VBA, pense en VBA.
Essayer de retranscrire en VBA ce qui se fait en fonctions Excel est souvent une mauvaise idée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Formule()
    Dim Lig as Long, Mois as Integer
 
    For Mois = 1 to 12
        Cells(Mois,13) = 0
        For Lig = 2 To Cells(Rows.Count,1).End(xlUp).Row
            If Month(Cells(Lig, 1)) = Mois Then Cells(Mois, 13) = Cells(Mois, 13) + Cells(Lig, 5)
        Next Lig
    Next Mois
 
End Sub

Je n'ai pas testé. Il y aura donc peut-être du débugage à faire.
Attention : ce code part du principe que toutes les dates de la colonne A sont situées la même année.

[JechercheT]

Avant tout, merci pour cette réponse rapide.
Et comme tu l'a déjà dit, ce code va bien avec les montants d'une même année.
Sinon?
J'essaye de penser en VBA mais, beginnings are always the hardest.

[Menhir]

Et comme tu l'a déjà dit, ce code va bien avec les montants d'une même année.
Sinon?

Sinon, déjà, le SOMMEPROD que tu as donné en message #1 ne marche pas.

Pour ce qui est du code, il faudra ajouter le critère "année" (Year()) au test If.

J'essaye de penser en VBA mais, beginnings are always the hardest.

Prendre le temps de se former, ça peut aider.
http://bidou.developpez.com/article/VBA/

[JechercheT]

j'ai partitionné mes données selon année manuellement: copier coller
puis, sommeprod.
mais quand tu as mis l’hypothèse, j 'ai pensé qu'il y aura une solution une fois pour toute (çad: éviter la première étape de copier coller).
Auparavant, je le faisais aisément par un logiciel statistique, mais en VBA
Merci encore une fois.

[78chris]

Bonjour

Pourquoi pas tout simplement un Tableau Croisé Dynamique ?

[JechercheT]

Franchement, j'en savais rien.
Donc, j'essaie, tout de suite de l'étudier.
Merci pour ta proposition Chris.