Aide formule pour calcul paris avec différentes combinaisons

Bonjour à tous,

Je viens de m'inscrire sur ce forum car je l'utilise depuis quelques temps pour y trouver des réponses mais cette fois là j'ai besoin de poster mon problème en espérant qu'une fois de plus cette communauté pourra m'aidé .

Je prépare un fichier excel afin d'y faire différents calculs et faire des estimations. Mais là... je bloque

Je vous joint le début de mon fichier car c'est compliqué d'expliquer...

En gros il y a différents moyen de parié, simple, double, triple ...

Et plus il y a de paris (jusqu'à 15) plus le nombre de combinaisons augmentent !!! je l'ai fait pour 4 et commencé pour 15 (double) mais cela me semble impossible de tout faire manuellement.

Il y a t'il un moyen plus simple que manuellement ?

Je sais que je n'ai pas du tout été clair... mais cela fait 30 min que j'essaye d'écrire ce post donc je préfère répondre à vos questions.

Merci à vous !

Bonjour,

une proposition,

c'est exactement ce que je souhaitais !!

Je ne m'y connais pas en macro mais elle n'a pas l'air très compliquer à comprendre si on s'y penche un peu, je vais pouvoir partir de ça et chercher à l'améliorer.

Merci beaucoup, ce site est vraiment génial !

Bonsoir,

code documenté

Dim qu(15)
Sub aargh()
' on mémorise les cotes gagnantes dans qu()
    For k = 1 To 15
        If Cells(k, 3) = "Gagné" Then qu(k) = Cells(k, 2) Else qu(k) = 0
    Next k
    ' on calcule les tableaux des combinaisons de 1 à 15
    For k = 1 To 15
        brt 1, 0, k
    Next k
    MsgBox "mise à jour terminée"
End Sub
Sub brt(n, q, k, Optional l = 18, Optional s = "")
' affichage du résultat d'une combinaison de K éléments
' l= 18 ligne à laquelle commencer l'affichage
' s= combinaison
' n = niveau de récursivité
' q = valeur initiale pour le niveau de récursivité
    olds = s
    For i = q + 1 To 15
        s = olds
        If n = 1 Then s = i Else s = s & "," & i
        If n = k Then 'on a une combinaison valide de k éléments
            l = l + 1 ' on incrémente la ligne d'affichage
            Dim v
            v = Split(s, ",") ' on charge v avec les différentes valeurs de la combinaison
            pr = 1 ' resultat =1 par défaut
            'calcul du résultat de la combinaison
            For j = LBound(v) To UBound(v)
                pr = pr * qu(v(j))
                If pr = 0 Then Exit For
            Next j
            Cells(l, (k - 1) * 3 + 1) = s ' affichage de la combinaison
            Cells(l, (k - 1) * 3 + 2) = pr ' affichage du résultat associé
        Else
            brt n + 1, i, k, l, s 'la combinaison ne contient pas K éléments, on traite l'élément suivant
        End If
    Next i
End Sub

Merci beaucoup ! Cela va en effet pas mal m'aider pour la modifier et surtout pour apprendre; ça donne envie d'apprendre un peu le VBA tout cela. Encore merci vous êtes génial

Exactement ce que je recherchais !!!

slimk a écrit :

c'est exactement ce que je souhaitais !!

Je ne m'y connais pas en macro mais elle n'a pas l'air très compliquer à comprendre si on s'y penche un peu, je vais pouvoir partir de ça et chercher à l'améliorer.

Merci beaucoup, ce site est vraiment génial !

Par contre, je souffre pour le comprendre même avec l'explication, en tout cas merci !!!