procédure somme poid

bonjour , j'ai une procedure a faire qui recense pour chaque heure la somme des poids des colis expédiés
alors la procédure est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub poid5() Dim derligne As Long derligne = Sheets("AAR").Range("ag65536").End(xlUp).Row For i = 2 To derligne For j = 4 To 27 If Cells(30, j) = Sheets("AAR").Cells(i, 33) Then Cells(31, j) = Cells(31, j) + Cells(i, 18).Value End If Next j Next i End Sub

---

la procédure marche mais ne recence pas la totalité des poids par heure

voila merci d'avance

Bonjour,
et si tu inverses les boucles :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub poid5() Dim derligne As Long derligne = Sheets("AAR").Range("ag65536").End(xlUp).Row For j = 4 To 27 For i = 2 To derligne If Cells(30, j) = Sheets("AAR").Cells(i, 33) Then Cells(31, j) = Cells(31, j) + Cells(i, 18).Value End If Next i Next j End Sub

---

ca marche nickel
merci:ccool: