SOMME SI DANS VBA

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

Code:

---

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

---

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.

Merci à tous !

Bonjour
Si j'ai compris, il y a en VBA sumifs
Supposons en colonne A : Numéro de compagnie et en colonne B le numéro de sinistre et le montant de sinistre en colonne C
cellule D = Application.WorksheetFunction.SumIfs(Colonne à sommer "C" dans notre exemple, Champs Condition1 , Condition1, , Champs Condition2 , Condition2)

Code:

---

1 2 3 4 5 6 7 8

Sub sommer() With Sheets("feuil1") dernligne = .Range("A" & .Rows.Count).End(xlUp).Row For i = 2 To dernligne .Cells(i, "D").Value = Application.WorksheetFunction.SumIfs(Sheets("feuil1").Range("C2:C" & dernligne), Sheets("feuil1").Range("A2:A" & dernligne), .Cells(i, "A"), Sheets("feuil1").Range("B2:B" & dernligne), .Cells(i, "B")) Next i End With End Sub

---

à étudier et à adapter si ça t'arrange

Citation:

---

Envoyé par OBADJ

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.

---

Il n'est pas nécessaire de passer par du VBA pour ça.
Tu peux le faire avec la fonction SOMME.SI.ENS()
https://support.office.com/fr-FR/art...6-611cebce642b

Citation:

---

Envoyé par BENNASR

Bonjour
Si j'ai compris, il y a en VBA sumifs
Supposons en colonne A : Numéro de compagnie et en colonne B le numéro de sinistre et le montant de sinistre en colonne C
cellule D = Application.WorksheetFunction.SumIfs(Colonne à sommer "C" dans notre exemple, Champs Condition1 , Condition1, , Champs Condition2 , Condition2)

Code:

---

1 2 3 4 5 6 7 8

Sub sommer() With Sheets("feuil1") dernligne = .Range("A" & .Rows.Count).End(xlUp).Row For i = 2 To dernligne .Cells(i, "D").Value = Application.WorksheetFunction.SumIfs(Sheets("feuil1").Range("C2:C" & dernligne), Sheets("feuil1").Range("A2:A" & dernligne), .Cells(i, "A"), Sheets("feuil1").Range("B2:B" & dernligne), .Cells(i, "B")) Next i End With End Sub

---

à étudier et à adapter si ça t'arrange

---

Bonjour BENNASR :)

Merci pour ta formule et ta réponse, ça fonctionne pas sa bloque à

Code:

---

.Cells(i, "A")

---

il reconnait pas cette valeur.

En revanche BENNASR, je sais pas si tu t'en souviens mais tu m'avais fait une super macro avec un Tablo pour calculer la Somme de tous les montants pour un même sinistre et un même numéro de compagnie.
J'avais pensé, pourquoi pas, de reprendre ton codage avec le tableau et au lieu de mettre un commentaire en H, il devra juste afficher le résultat de la somme des montants pour un même sinistre en colonne R.

Voici ton code que tu avais fait ! :) :

Code:

---

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

With Sheets("SUIVTRANS EN COURS") Derligne = .Range("A" & Rows.Count).End(xlUp).Row .Range("M2:M" & Derligne).ClearContents   Tablo = .Range("J2", "K" & .Range("K" & .Rows.Count).End(xlUp).Row)   For j = 2 To Derligne somme = 0 codeP = .Cells(j, "H") For i = LBound(Tablo, 1) To UBound(Tablo, 1) If .Cells(j, "J") = Tablo(i, 1) Then If .Cells(i + 1, "H") <> codeP Then GoTo pasDeCommentaire Else somme = somme + CDbl(Tablo(i, 2)) End If End If   Next i   'REGULARISATION ECART-TEMPLATE (2) If somme >= -10 And somme <= 10 And somme <> 0 Then .Cells(j, 13) = "REGULARISATION ECART-TEMPLATE"   End if End j

---

Je sais pas si c'est nécessaire de reprendre ton tablo, mais c'est exactement le même esprit sauf qu'on mettra pas de commentaire mais juste le résultat de la somme des montants.

si c'est le cas alors supprimer les trois dernières lignes de code :

Code:

---

1 2 3 4

If somme >= -10 And somme <= 10 And somme <> 0 Then .Cells(j, 13) = "REGULARISATION ECART-TEMPLATE"   End if

---

et remplcer par (remplcer 13 par le numéro de colonne qui recevra la somme)

Code:

---

.Cells(j, 13) = somme

---

ça marche pas ...

Ah si a a l'air de marcher !