Discussion :

[huître]

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 :

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

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

[casefayere]

Bonjour,
et si tu inverses les boucles :

Code :

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

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

[huître]

ca marche nickel
merci