Bonjour mes chers amis![]()
Je voudrais qu'en colonne R : il m'affiche le résultat de la somme de tous les montants en colonne K pour un même sinistre.
sinn = colonne des numéro de sinistre
CIE = colonne des numéro de compagnie
"K" c'est ma colonne des montants
Je veux qu'il m'additionne tous les montants pour un même numéro de sinsitre et pour un même numéro de compagnie.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 For j = 2 To Derligne For jj = j + 1 To Derligne If .Cells(j, sinn) = .Cells(jj, sinn) And Cells(j, CIE) = Cells(jj, CIE) Then .Range("R" & Derligne) = Application.WorksheetFunction.Sum(Range("K2:K" & Derligne)) End If Next jj Next j End With pasDeCommentaire: End Sub
Merci à tous !
Partager