Quintiles avec la fonction Centile!?

[pacoako]

Bonjour à tous!

Je me demandais si quelqu'un pourrais me valider une information.. J'ai besoin de séparer des résultats de temps d'appel en Quintiles mais je m'apperçoit qu'aucune fonction Quintile existe dans Excel... je dois donc travailler avec la fonctione Centile.. Ceci dit, je ne suis pas certain qu'elle convienne réelement pour mon problème..

Si je veux avoir la moyenne du premier quintiles je l'inscrirais ainsi ? :

=CENTILE(Feuil1!A2:$A$100;0,2)

Si je veux avoir la moyenne du dernier quintiles je l'inscrirais ainsi ? :

=CENTILE(Feuil1!A2:$A$100;0,8)

Si je veux avoir la moyenne des 3 quintiles qui sont au milieu est-ce que je l'inscrit simplement ainsi? :

=CENTILE(Feuil1!A2:$A$100;0,5)

J'ai fait un calcul manuel et je n'arrive vraiment pas à la même réponse qu'avec la formule...

Je vous joint un fichier exemple... À noter que les Quintiles sont séparer par la colonne TTA... donc il faut trier cette colonne en ordre croissant pour les séparer manuellement..

Vous avez sur la 1ère feuille le rapport ou je dois mettre les résultats des Quintiles.

La 2e feuille est mon calcul manuel des moyenne par Quintiles

La 3e feuille est la feuille de données

Merci !!!

N.B Les exemples que j'ai inscrit ci-haut ne s'applique pas à mon fichier excel...

 

[pacoako]

Re : Quintiles avec la fonction Centile!?

Wow! Après investigation, je me suis apperçu que j'étais complètement dans le champ avec ma formule centile... cette formule donne un résultat de médiane et non pas une moyenne.. J'ai du me faire ma propre fonction.. qui peut laisser à désirer si le nombre d'élement n'est pas un multiple de 5 car j'arrondi à l'entier le plus près dans mon code...

Voici ce que ça donne.. faites moi signe si vous avez plus simple comme idée!

A + =)

Option Explicit
Function MoyenneQuintile(QRange As Range, QNumber As Integer) As Double

Dim QList(0 To 9999) As Variant
Dim QCell As Variant
Dim Q As Integer
Dim QBound As Integer
Dim QVal As Double
Dim QValeurs As Integer
Dim QValeursQuantiles As Integer
Dim QNumberElements As Integer
Dim QSomme As Double

Q = 0
For Each QCell In QRange
          If QCell.Value <> 0 Then
          QList(Q) = QCell.Value
          End If
          Q = Q + 1

Next QCell

Call SortArray(QList)

Q = 0
QVal = 1
Do Until QVal = 0
          QVal = QList(UBound(QList) - Q)
          QBound = UBound(QList) - Q
          Q = Q + 1
Loop

QValeurs = UBound(QList) - QBound
QValeursQuantiles = Int(QValeurs / 5)

QNumberElements = 0
QSomme = 0

If QNumber >= 1 And QNumber <= 4 Then
          For Q = QBound To QBound + (QValeursQuantiles * QNumber)
                    QSomme = QList(Q) + QSomme
          Next Q
End If

If QNumber = 5 Then
          For Q = UBound(QList) - QValeursQuantiles To 9999
                    QSomme = QList(Q) + QSomme
          Next Q
End If
MoyenneQuintile = QSomme / QValeursQuantiles

End Function
Public Function SortArray(ByRef TheArray As Variant)

Dim sorted As Boolean
Dim x As Integer
Dim Temp As Variant

sorted = False
Do While Not sorted
    sorted = True
For x = 0 To UBound(TheArray) - 1
    If TheArray(x) > TheArray(x + 1) Then
        Temp = TheArray(x + 1)
        TheArray(x + 1) = TheArray(x)
        TheArray(x) = Temp
        sorted = False
    End If
Next x
Loop
End Function