Discussion :

[Iichham]

bonjour le forum ... j'ai besoin de votre aide

j'ai deux colonnes B et D .. dans B j'ai des valeurs de types date et dans D des montants (type long)
je veux faire la somme des valeurs de la colonne D qui correspondent à des dates entre le debut du mois précédant et sa fin (M-1)

[jfontaine]

Bonjour,

Sans VBA avec la formule Sommeprod

Exemple : date en A et montant en B

Code :

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

=SOMMEPROD((A1:A86>=DATE(2011;2;1))*(A1:A86<=DATE(2011;2;28));B1:B86)

[Iichham]

merci .. quoique y a po moyen de le faire en VBA j'ai besoin d'affecter la somme a une variable et de faire un autre calcul deriere :S ...

[jfontaine]

Pourquoi ne pas utiliser la formule, puis mettre son résultat dans la variable pour enfin supprimer la formule (Cellule temporaire)

[Iichham]

c'est s que je vais faire (c'est un peu limite parsque j'aurai 12 variable(autant de variable que de mois) ) pourtant avec la fonction ça marche toujours pas

ça me fait un #div/0!

j'ai fais

Code :

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

=sommeprod((F2:F65536>=date(2011;6;1))*(F2:F65536<=DATE(2011;6;30));Q2:Q86)

j'ai les dates dans le F et les montants en Q

[SfJ5Rpw8]

une question .. , sais-tu combien comporte de ligne environ ton tableau ? y a-t-il plusieurs années dans ce même tableaux (d'ou plusieurs fois le mois 2 par exemple..)

[jfontaine]

Dans un sommeprod il faut que les plages soient sur le même nombre de ligne

Code :

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

=sommeprod((F2:F65536>=date(2011;6;1))*(F2:F65536<=DATE(2011;6;30));Q2:Q65536)

[Iichham]

à Jérôme : c'est exactement ce que j'ai fait mais ça ne marche pas.
à Bbil : pour l'instant j'ai que l'année 2011 et pour chaque mois y a plusieurs enregistrements ( ex mois mars j'ai 01/03/2011, 03/03/2011 , 15/03/2011 et 27/03/2011)

[SfJ5Rpw8]

Donc tu ne dois pas avoir beaucoup de ligne une boucle te permet la mise à jour de tes 12 totaux

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
 
Sub CalculTotaux()
   Dim rTotal(1 To 12) As Double
   Dim sh As Worksheet
   Const ANNEE = 2011 ' A voir comment tu veut définir l'année concernée
   Const icDTE = 1 ' colonne de date (A)
   Const icDONN = 2 ' colonne donnée (B)
   Dim iMax As Integer 'Nombre de lignes à traiter
   Dim i As Integer 'index de ma boucle
   Dim iMois As Integer 'Numero de mois
   Set sh = Workbooks("Classeur1").Sheets("Feuil4") ' Définit la feuille concernée..
   iMax = sh.Range("A1").CurrentRegion.Count
 
   For i = 2 To iMax ' on part de 2 si ligne 1 = Titre
      If Year(sh.Cells(i, icDTE)) = ANNEE Then ' Seule les Année 2011 sont concerné
            iMois = Month(sh.Cells(i, icDTE))  'récupére le numéro de mois
            rTotal(iMois) = rTotal(iMois) + sh.Cells(i, icDONN)
      End If
   Next
'-----------------------------------
' Pour terminer affichage résultat dans fenêtre exécution (CTRL+G
For i = 1 To 12
  Debug.Print "Total " & i & " : " & rTotal(i)
Next
Stop 'CTRL+G pour voir le résultat
End Sub