Fonction de calcul d'écart (jeux de tirage-paris-...)

Bonjour,

ci-joint, une fonction personnalisée permettant de déterminer l'écart (de sortie) d'un nombre ou d'une série de nombres sur base d'un tableau historique. La question de l'écart est généralement posée dans le contexte de jeux de tirage ou de paris sportifs.

Function ecart(serie, tableau As Range)
' fonction de calcul de l'écart (nombre de périodes qu'un nombre ou une série de nombres n'est pas sorti)
' serie = nombre ou série de nombres dont il faut déterminer l'écart
' tableau = tableau contenant les données historiques pour le calcul d'écart, tableau doit être trié des données les plus récentes au moins récentes

utilisation dans excel, par exemple

=ecart(A1:B1,C1:H100)

recherche l''écart de sortie pour les nombres qui sont dans les cellules A1 et B1 dans le tableau historique C1:H100.

le code de la fonction personnalisée :

Function ecart(serie, tableau As Range)
' fonction de calcul de l'écart (nombre de périodes qu'un nombre ou une série de nombres n'est pas sorti)
' serie = nombre ou série de nombres dont il faut déterminer l'écart
' tableau = tableau contenant les données historiques pour le calcul d'écart, tableau doit être trié des données les plus récentes au moins récentes

    vts = VarType(serie)
    If vts = 5 Then sc = 1 Else sc = serie.Count
    nc& = tableau.Columns.Count
    nr& = tableau.Rows.Count
    For i& = 1 To nr
        ctr& = 0
        If vts = 5 Then
            For k& = 1 To nc
                If serie = tableau(i, k) Then ctr = ctr + 1: Exit For
            Next k
            If ctr = 1 Then ecart = i - 1: Exit Function
        Else
            For j& = 1 To sc
                For k& = 1 To nc
                    If serie(j) = tableau(i, k) Then ctr = ctr + 1: Exit For
                Next k
            Next j
            If ctr = sc Then ecart = i - 1: Exit Function
        End If
    Next i
    ecart = tableau.Rows.Count
End Function

pour rendre la fonction disponible dans votre classeur

- sélectionner le code sur le forum (ctrl-a), le copier (ctrl-c)

- ouvrir votre classeur excel, faire alt-F11 (ouvre l'éditeur vba)

- faire menu-> insérer-> module

- coller le code (ctrl-v)

- sauver le classeur avec les macros (format xlsm)

- la fonction est à présent disponible dans votre classeur.

fichier exemple :