Bonjour,

Je suis en train de calculer les différents quartile sur mon plateau de production
J’arrive jusqu’à présent sauf que sur le calcule il prend pas les agents avec la valeurs zéro

Ci-dessous mon code si vous remarque une optimisation de votre parts.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub QUARTILE_Par_Agent()
 
Dim Ligne As Integer
Ligne = 2
 
    For i = 71 To 74
        For j = 5 To 58
 
            If Cells(j, 2) <= Cells(i, 2) And Cells(j, 2) > Cells(i - 1, 2) Then
                Cells(Ligne, 38) = Cells(i, 1)
                Cells(Ligne, 39) = Cells(j, 1)
                Cells(Ligne, 40) = Cells(j, 2)
                Ligne = Ligne + 1
            End If
 
        Next
    Next
 
 
End Sub
je reste disponible pour plus d'informations.

Cdt,

bonjour,
je pense que vous avez pas bien compris ma problématique c'est pour ca que je partage avec vous mon fichier.
ci dessous le fichier

Quartile Test.xlsm

cdt,