Elaborer une fonction Vb6 pour calculer les centiles

zaksav -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
j ai besoin d elaborer une fonction en VB 6 pour calculer les centiles

5 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonsoir, peux-tu nous en dire plus?
    0
    1. daniel
       
      J'me rappelle d'anciens calculs statistiques sur des quartiles et des centiles,
      mais c'est trop loin, et j'ai pas envie d'me replonger là-dedans ! c'est juste
      une piste à suivre pour aider notre ami zaksav (alias zasakav).
      0
  2. zasakav
     
    merci ...je veux faire un programme pour une fonction centiles pour l utiliser comme fonction persoonnalise sur excel
    0
    1. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 831
       
      Bonjour ( oui oui ... on commence par ça ! )
      Habituellement ta discussion aurait été supprimée... mais vu que certaines personnes ont commencé à y répondre.. je la laisse.
      Ensuite... on évite d'ouvrir des discussions en DOUBLON sur le forum. (j'ai supprimé cette seconde question....)
      Puis.. tu parles d'un code en VB6 ... mais tu viens de nous dire que c'est pour l'utiliser comme fonction personnalisée sur Excel .... donc c'est en VBA et non VB6 non ??

      Et enfin... Daniel t'a donné des liens pour les calculs de Centille ... Les as tu regardé ?
      Qu'as tu commencé à coder ? ( ici nous ne fournissons pas du code clé en main .. nous aidons par contre en cas de souci sur un code que tu AURAIS écrit ! )
      0
    2. zasakav
       
      merci pour votre feed back quoique hostile. Le cote statistique je le maitrise. dans le volet informatique je suis novice. c est pour cela j ai demande de l aide.
      0
      1. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 831 > zasakav
         
        Désolé pour le ton agressif ... mais quand on tombre 200 fois par jour sur des personnes qui ne respectent pas la charte du site.... ça devient compliqué de le faire remarquer avec..... humour et bonne humeur.

        Quoi qu'il en soit, les utilisateurs de ce forum accepterons très certainement de t'aider avec plaisir...mais pour ça tu vas devoir commencer par :
        - Nous indiquer sur quoi (quel problème technique et clairement identifié...) tu bloques précisément
        - Que tu nous montres ce que tu as commencé à coder...
        0
      2. daniel > zasakav
         
         
        @zasakav

        Tu as écris : « Le côté statistiques je le maîtrise » ; j'ai donc fait
        un exemple simple : https://mon-partage.fr/f/1wJvMIaq/
         
        0
  3. daniel
     
    Sans aller jusqu'à me replonger dans d'anciens calculs statistiques,
    j'ajoute ce lien : https://fr.wikipedia.org/wiki/Centile
    0
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour à tous

    Juste au cas où ....
    La fonction CENTILE existe sous excel
    Et si on veut la récupérer depuis vba
    Application.WorksheetFunction.Percentile(plage, c)

    Cdlmnt
    0
    1. daniel
       
      C'est exact, et l'aide d'Excel 2007 pour la fonction CENTILE(matrice;k) indique :
      matrice représente la matrice ou la plage de données définissant l'étendue relative ; si l'argument matrice est vide ou contient plus de 8 191 observations,
      la fonction CENTILE renvoie la valeur d'erreur #NOMBRE! ; il y a d'autres notes
      utiles. Je ne sais pas si les versions ultérieures d'Excel permettent de calculer
      des centiles pour plus de 8 191 observations.
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Zaksav
     
    Bonjour et Merci tous pour vos aides. J ai trouvé cette fonction code mais elle contient un problème, pouvez vous le résoudre
    Est ce qu il est possible avant de faire les calculs sur la série de l'ordonner du plus petit au plus grand.
    merci encore
    Function basPercentile(Pctl As Single, ParamArray MyAray() As Variant) As Single
    Dim NthEl As Single
    Dim StrtPctle As Single
    Dim IncrPctle As Single
    Dim DeltPctle As Single
    NumElems = UBound(MyAray) + 1
    NthEl = (NumElems - 1) * (Pctl) + 1
    If (NthEl = Int(NthEl)) Then
    basPercentile = MyAray(NthEl)
    Else
    StrtPctle = MyAray(Int(NthEl - 1))
    IncrPctle = (NthEl - Int(NthEl))
    DeltPctle = (MyAray(Int(NthEl)) - MyAray(Int(NthEl - 1)))
    basPercentile = StrtPctle + (IncrPctle * DeltPctle)
    End If

    End Function
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      as-tu un problème, cherches-tu un algorithme pour trier une série, ou les deux?
      si tu as un problème, peux-tu le décrire?
      si tu cherches un algorithme de tri, voici:
      https://openclassrooms.com/courses/le-tri-a-bulles
      0
    2. zasakav
       
      bonjour...merci. svp entre parenthese j ai besoin de calculer la difference entre deux dates pour calculer un taux d escompte. comment je peux inserer cette instruction dans mon code vba
      0
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > zasakav
         
        dim datedebut as date, datefin as date
        dim njour as long
        'nombre de jours entre deux dates
        njour=datefin-datedebut
        0