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.
je reste disponible pour plus d'informations.
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
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,
Partager