Boucle permettant une somme avec condition VBA
Bonjour,
Je souhaiterais sommer la colonne quantité (en col 10 dans mon tb) pour le mettre dans la colonne somme (col 17 dans mon tb) en fonction de la qualité (col 11). J'ai besoin de sommer que quand c'est "RO" uniquement avec comme maximum le chiffre dans la colonne pack (col 13 dans mon tb).
| QTE | QUALITE | Pack | Somme |
| 370 | STD | 5 | |
| 10 | STD | 5 | |
| 120 | STD | 5 | |
| 4 | RO | 5 | |
| 335 | STD | 5 | |
| 9 | RO | 10 | |
| 1 | RO | 10 | |
| 375 | STD | 10 | |
| 100 | STD | 5 | |
| 170 | STD | 5 | |
| 1 | STD | 1 | |
| 150 | STD | 10 |
Avec ce bout de code :
Sub test()
'Effectue une boucle qui passe sur toute les lignes
Sheets("feuille1").Select
For I = 2 To dl
k = RO
If Cells(I, 11) = Cells(I + 1, 11) And Cells(k, 11) = k Then
Cells(I, 17).Value = Cells(I, 10).Value + Cells(I + 1, 10)
End If
Next I
End Sub
Je vous remercie de votre aide.
Bonsoir,
résultat souhaité sur votre exemple dans le message :
| Somme |
|---|
| 0 |
| 0 |
| 20 |
| 0 |
| 90 |
| 10 |
| 0 |
| 0 |
| 0 |
| 0 |
| 0 |
@ bientôt
LouReeD
Bonjour LouReeD,
Merci pour ta réponse, mais cela ne répond pas à mon besoin.
En pj le fichier, avec plus de détails pour aider à trouver la solution svp.
Merci.