Calculer les écarts à pile ou face

Le 09/02/2019 à 11:59

Bonjour à tous,

Je souhaiterais calculer à partir d'un historique de résultats, les écarts de victoires et de défaites lorsque l'on joue à pile ou face.

(Voir fichier joint)

Par exemple:

Sur une permanence donné répertoriant les résultats sur 4600 coups en colonne A (1 pour gagné 2 pour perdu):

Combien de fois je n'ai gagné q'une fois à la suite?..

Combien de fois j'ai gagné 5 fois à la suite?..

Combien de fois j'ai perdu 8 fois à la suite?..

En gros, combien de fois j'ai gagné ou perdu X fois à la suite?

Le tout serait répertorié dans deux tableaux, un pour les victoires et un pour les défaites.

Merci beaucoup pour votre aide!

Bonne journée

Jérôme

11pile-ou-face.xlsx (57.54 Ko)

Le 09/02/2019 à 12:30

Bonjour,

une proposition (via macro)

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(2, 4).Resize(5000, 4).Delete
        previ = 0
        For i = 2 To dl + 1
            If .Cells(i, 1) <> previ Then
                If ctr > ctrmax Then ctrmax = ctr
                If previ <> 0 Then
                    col = 4 + (previ - 1) * 3
                    .Cells(ctr + 1, col) = ctr
                    col = col + 1
                    .Cells(ctr + 1, col) = .Cells(ctr + 1, col) + 1
                End If
                ctr = 1
                previ = .Cells(i, 1)
            Else
                ctr = ctr + 1
            End If
        Next i
        .Cells(2, 4) = 1
        .Cells(3, 4) = 2
        .Range("D2:D3").AutoFill Destination:=.Range("D2").Resize(ctrmax)
        .Range("D2").Resize(ctrmax).Copy .Range("G2")
        .Cells(2, 4).Resize(ctrmax, 2).Borders.Weight = xlThin
        .Cells(2, 7).Resize(ctrmax, 2).Borders.Weight = xlThin
    End With
End Sub

Le 09/02/2019 à 12:48

Bonjour,

Merci beaucoup!

Deux petites questions svp:

- Est-ce que le nombre de lignes des tableaux augmentent en fonction des résultats trouvés sans maximum de ligne?

- J'ai affecté le code à une macro, mais quand je lance le calcul, le bouton se déplace tout seul...

Comment faire pour qu'il reste fixe svp?

En tout cas, c'est top!

Merci

Jérôme

5pile-ou-face.xlsm (47.17 Ko)

Le 09/02/2019 à 12:59

Re,

Par contre, je crois qu'il y a une petite erreur de calcul.

En fait, lorsque je multiplie par exemple les cellules de la colonne D par la colonne E et que je fais la somme , je dois trouver normalement le nombre totale de 1 ou de victoire.

C'est le cas pour le tableau des victoires.

Mais quand je fais le calcul pour celui des défaites, donc colonne G x H, je trouve une grosse différence par rapport au nombre des défaites.

Car dans l'historique, il y a 2081 défaites (2) et quand je fais la somme des produits G x H, je trouve 2422.

Merci!

Jérôme

Le 09/02/2019 à 13:13

Bonjour,

avec 2 colonnes supp et un TCD

eric

9pile-ou-face.xlsx (213.56 Ko)

Le 09/02/2019 à 13:57