Microsoft 365 Tableau Excel loi de Benford

JDA75 à dit:

Bonjour Je m'appelle Julien et suis nouveau sur le forum.

J'essaye d'améliorer un fichier trouvé ici pour analyser une suite de nombres avec la loi de Benford (et analyse graphique).

Je ne connais pas bien les fonctionnalités "Matrice" et ne comprends pas que quand je sélectionne G2-G10, modifie la plage C2-C26000 et valide avec Ctrl+ Shift + Entrée, la formule ne fonctionne pas. Dans le futur je souhaite utiliser ce modèle pour différentes base de données avec un nombre de lignes différents.

Est ce qu'une bonne âme pourrait m'aider à faire fonctionne ce tableau et m'expliquer la procédure a suivre avec une prochaine base de données avec plus ou moins de lignes ?

Cordialement,

Cliquez pour agrandir...

Function FreqBenford(plage As Range)
    Dim datas, dictApparition, chi
    Dim lig As Long, tmp(1 To 9, 1 To 1) As Double, total As Long, k
    Set dictApparition = CreateObject("Scripting.Dictionary")
    datas = plage.Value
    For lig = 1 To UBound(datas)
        If IsNumeric(datas(lig, 1)) Then
            chi = CInt(Left(Format(Abs(datas(lig, 1)), "0.0E+00"), 1)) ' retourne le 1er chiffre <> 0
            dictApparition(chi) = dictApparition(chi) + 1
        End If
    Next lig
    For Each k In dictApparition
        If k <> 0 Then tmp(k, 1) = dictApparition(k)
        total = total + dictApparition(k)
    Next
    For lig = 1 To 9
        tmp(lig, 1) = tmp(lig, 1) / total
    Next lig
    FreqBenford = tmp
    Set dictApparition = Nothing
End Function

cathodique à dit:

Bonsoir,

Le fiston était là. Il a donné un coup de main.
J'ai essayé de reporter ses explications en feuil 2.

Bonne soirée.

Cliquez pour agrandir...