Calcul plus longue série de victoires ou défaites

Bonjour à tous,

Je cherche la formule excel qui permettrait de calculer la plus longue série de victoires ou de défaites pour un tableau de paris sportifs.

J'ai une colonne F dans laquelle figurent le montant des gains ou des pertes et pour chaque ligne un paris sportif et j'aimerais savoir s'il est possible de calculer le plus grand nombre de paris gagnants et perdants d'affilée (ex : 10 paris perdants de suite ou 8 paris gagnants de suite).

J'espère avoir été assez clair dans mes explications.

En vous remerciant par avance,

Bien cordialement.

Bonjour,

Un test par VBA :

Sub COMPTAGE()
Dim LR%, L%, POS%, NEG%, POS_A%, NEG_A%
With ActiveSheet
    LR = .Cells(.Rows.Count, 6).End(xlUp).Row
    For L = 2 To LR
        If .Cells(L, 6) > 0 And NEG >= 0 Then
            If NEG > NEG_A Then NEG_A = NEG
            POS = POS + 1
            NEG = 0
            Else
            If POS > POS_A Then POS_A = POS
            NEG = NEG + 1
            POS = 0
        End If
    Next L
    .[H2] = Application.WorksheetFunction.Max(POS_A, POS)
    .[H3] = Application.WorksheetFunction.Max(NEG_A, NEG)
End With
End Sub

Et le fichier qui va avec.

Si ça ne convient pas merci de joindre un fichier représentatif avec le résultat attendu.

Cdlt,

Bonjour Ergotamine,

Je tiens tout d'abord à te remercier d'avoir pris la peine de me répondre. Je ne connais absolument pas le langage VBA, aussi vais-je donc devoir regarder sur internet comment il faut procéder pour appliquer le test que tu m'as envoyé car je ne sais même pas comment faire et je reviendrai vers toi dès que cela sera fait.

Encore merci à toi.

Bien cordialement.

J'ai vérifié, cela marche parfaitement bien et répond pleinement à ma demande.

Je te remercie.

Bien cordialement.

Bonjour,

Comment ajuster la macro pour qu'elle fonctionne sur une colonne bien définie ?

Bonjour,

D'après mon code (pas mal de sujet ont été traités depuis), la colonne est définie 2 fois dans le code par le passage suivant : .Cells(L, 6) où 6 correspond au numéro de la colonne. Il est donc nécessaire de changer ce numéro (1 pour A, 2 pour B, etc etc ...).

Si vous n'y arrivez pas merci de joindre un fichier représentatif.

Cdlt,

Sub COMPTAGE()
Dim LR%, L%, POS%, NEG%, POS_A%, NEG_A%
With ActiveSheet
    LR = .Cells(.Rows.Count, 6).End(xlUp).Row
    For L = 2 To LR
        If .Cells(L, 6) > 0 And NEG >= 0 Then
            If NEG > NEG_A Then NEG_A = NEG
            POS = POS + 1
            NEG = 0
            Else
            If POS > POS_A Then POS_A = POS
            NEG = NEG + 1
            POS = 0
        End If
    Next L
    .[H2] = Application.WorksheetFunction.Max(POS_A, POS)
    .[H3] = Application.WorksheetFunction.Max(NEG_A, NEG)
End With
End Sub

Même si je comprends pas le code, j'ai changer le numéro de colonne (où il y les 6 dans le vôtre) et les cellules de destination pour les résultats H2 et H3.

Ça fonctionne ;-)