Discussion :

[OBADJ]

Bonjour,

J'aimerais que vous me proposé une solution pour ma macro qui fait la somme des montants pour un même numéro de sinistre (colonne 10) et un même code compagnie (colonne 8)

Je sais pas comment faire pour faire la somme de toutes ces lignes en VBA svp.

Nb: Le résultat de la somme ce fera en colonne 18. (il s'agit d'un fichier de 5000lignes)

Voici le début de macro que j'ai fais mais je sais pas quoi mettre en colonne 18.

Code :

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

1
2
3
4
5
6
7
8
Derligne = .Range("A" & Rows.Count).End(xlUp).Row
   For i = 3 To Derligne
    '2eme ligne à comparer
    For ii = i + 1 To Derligne
 
  If Cells(i, 8) = Cells(ii, 8) And Cells(i, 10) = Cells(ii, 10) Then
 
  Cells (i,18)=

Merci de votre aide et merci de me corriger

[joe.levrai]

Bonjour,

utilises la fonction SOMME.SI.ENS (Application.Worksheetfunction.Sumifs en vba)