Bonjour,

Je dois créer un programme vba pour additionner le contenu de cellules de la colonne C seulement si la cellule active de la colonne de D a le même contenu que la cellule de la colonne D précédente. Si le contenu n'est pas le même alors la somme obtenue jusque là s'inscrit dans une cellule donnée(de la colonne F), puis on recommence avec la ligne(de la colonne D) d'après jusqu'à que le contenu soit différent.
Nom : tableau.png
Affichages : 329
Taille : 261,2 Ko

Voici le code:

Sub SommeRREgrenoble(lignedsomme As Integer, ligneresultats As Integer)

Dim Somme As Double
Dim i As Integer
Somme = 0
Dim annee As Double

For i = lignedsomme To 523

If Cells(i + 1, 4) = Cells(i, 4) Then
Somme = Somme + Cells(i + 1, 3)
End If

Next i

Cells(ligneresultats, 6) = Somme

End Sub