XL 2019 formule excel

Ferbank à dit:

...comptabiliser le nombre de fois ... est sorti plusieur fois de suite soit 2 fois 3 fois ou 4 fois de suite
... compter le nombre de fois ou chaque numéro de 1 à 10 est sorti et si possible avec la date.
...

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Un début de piste

JHA

Cliquez pour agrandir...

job75 à dit:

Bonjour à tous,

Voyez le fichier joint et ces 2 fonctions VBA :

VB:

Function FrequenceMax(numero%, plage As Range)
Dim pc&, i&, n&, j&
pc = plage.Count
For i = 1 To pc
    If plage(i) = numero Then
        n = 1
        For j = i + 1 To pc
            If plage(j) <> numero Then Exit For
            n = n + 1
        Next j
        If n > FrequenceMax Then FrequenceMax = n
        i = i + n
    End If
Next i
End Function

Function NbConsecutifs(numero%, nfois%, plage As Range)
Dim i&
For i = 1 To plage.Count
    If plage(i - 1) <> numero And Application.CountIf(plage(i).Resize(nfois), numero) = nfois _
        And plage(i + nfois) <> numero Then NbConsecutifs = NbConsecutifs + 1: i = i + nfois
Next i
End Function

Les quantités trouvées sont indépendantes les unes des autres (2 fois de suite n'est pas compris dans 3 fois de suite).

A+

Cliquez pour agrandir...

Ferbank à dit:

Tous simplement bravo;
le roi des macros sur Excel je ne pense pas être le seul à promulguer cette vérité, vu la simplicité de quelques lignes de macro pour obtenir ces résultats j'en suis ebahi;
je n'en suis pas capable mon cerveau de 70 balais ne surchauffe même pas tellement il est inerte à cette culture les macros VB.
Merci encore pour ces résultats, en fait on pourrait tout aussi bien mettre dans cette colonne les numeros de 1 à 49 pour obtenir les mêmes stats!
Merci encore

Cliquez pour agrandir...