Cacul de sous total en VBA avec conditions

Bonjour,
J'aimerais calculer en vba selon la date faire la somme des données.je suis débutant en vba et un coup de main serait bien sympathique.
Exemple pour la date du 05/01/2015 j'aimerais avoir 9208689 à la ligne 6 dans la colonne Total Général.
Pour info,le nombre de lignes selon les dates est variable.

Merci d'avance

Pièce jointe 179627

Comme il est plus rapide de taper ce code que d'expliquer comment faire :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Som as Double Dim Lig as Long Som = 1 For Lig = 2 to Cells(Rows.Count,1).End(xlUp).Row Som = Som + Cells(Lig,3) If Cells(Lig,1).Value <> Cells(Lig+1,1).Value Then Cells(Lig,5).Value = Som Som = 0 End If Next Lig

---

Bonjour,

Menhir, y'a deux trucs que je comprend pas, je dois passer à côté de quelque chose

1) Pourquoi tu initialises Som à 1 en début de procédure ? J'aurai plutôt laissé à 0
2) le total général est en colonne D, j'aurai plutôt vus Cells(Lig,4).Value = Som

J'ai testé ça marche nickel!!!!!merci beaucoup
Par contre il faillait bien mettre ceci comme remonté par joe.levrai

Citation:

---

2) le total général est en colonne D, j'aurai plutôt vus Cells(Lig,4).Value = Som

---

Oui pour Som=0. J'ai mélangé deux sujets.