Sub test()
[COLOR=seagreen]'déclaration des variables[/COLOR]
Dim combi As Variant, cpt1&, cpt2&, cpt3&, cpt4&, cpt5&
[COLOR=seagreen]'on boucle sur les cellules de la colonne A, de la ligne 10 à la derniere cellule non vide[/COLOR]
For i = 10 To Range("A65536").End(xlUp).Row
[COLOR=seagreen]'la variable combi recoit le contenue des cellules ligne i colonne A, B et C[/COLOR]
combi = Cells(i, 1).Value & Cells(i, 2).Value & Cells(i, 3).Value
[COLOR=seagreen]'select case : on choisis le Case pour lequel la valeur de combi correspond[/COLOR]
Select Case combi
[COLOR=seagreen]'si combi vaut EP#X ou EP## alors cpt1=cpt1+la valeur de la cellule ligne i colonne D[/COLOR]
Case "EP#X", "EP##"
cpt1 = cpt1 + Cells(i, 4).Value
[COLOR=seagreen]'idem que ci-dessus avec NBBX et NBUX[/COLOR]
Case "NBBX", "NBUX"
cpt2 = cpt2 + Cells(i, 4).Value
Case "NBFX", "NBRX", "NB#X"
cpt3 = cpt3 + Cells(i, 4).Value
Case "NBB#", "NBU#", "NBV#", "LP##"
cpt4 = cpt4 + Cells(i, 4).Value
Case "NBF#", "NBR#", "NB##", "FO##", "###"
cpt5 = cpt5 + Cells(i, 4).Value
End Select
Next i
[COLOR=seagreen]'les cellules lignes 32 à 36, colonne C prend les valeurs des cpt remplit dans le Select Case[/COLOR]
Cells(32, 3).Value = cpt1
Cells(33, 3).Value = cpt2
Cells(34, 3).Value = cpt3
Cells(35, 3).Value = cpt4
Cells(36, 3).Value = cpt5
End Sub