excel et les probabilités

**rouls** · 04/10/2006, 11h53

Bonjour,

je suis arrivé au bout de mes compétences en mathématiques/probabilités, c'est pourquoi je laisse ce message.

Adepte des paris en ligne, j'essaie de créer une feuille excel qui, une fois tous les matchs renseignés, me calcule tous les combinés de 3 matchs possibles sans doublons.

Je m'explique:
je débute en copiant/collant ds excel le nom des matchs qui m'intéressent.

En fonction du nbre de matchs(environ 5 ou 6), je calcule le nbre de combinés possible - Ex: 10 combinés pour 5 matchs.

A partir de là, je n'arrive pas à trouver une formule qui me combine tous les matchs afin de constituer tous les triplés.

Quelqu'un aurait-il une idée ?

Merci pour votre aide.

**ThierryAIM** · 04/10/2006, 12h24

c'est un calcul assez basique de maths :

un arrangement (ou l'ordre a une importance) de p parmi n :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

A = n! / (n-p)!

une combinaison (ou l'ordre n'a pas d'importance) de p parmi n :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C = n! / p!(n-p)!

**rouls** · 04/10/2006, 14h38

en fait , je bloque sur le fait d'organiser tous les combinés.
C'est à dire de mettre tel match dans les combinés x,y,z... puis pareil pour le match2 et etc.... pour avoir la liste des 10 (par exemple) combinés et les matchs qu'ils contiennent.

Ex:

Combiné 1: Match1 + Match 3 + Match 4
Combiné 2: Match4 + Match 5 + Match 2
Combiné 3: Match2 + Match 3 + Match 1
Combiné 4: Match1 + Match 3 + Match 5
....

**ouskel'n'or** · 04/10/2006, 15h19

Comprends pas ! Oui, parce que je ne vois pas comment tu obtiens 10 combinaisons de trois pour 5 matchs.
Ou alors tu as mal expliqué... ou alors tu as mal calculé

**sk8bcn** · 04/10/2006, 15h31

mmmm

tu veux afficher toutes les combinaisons possibles de 3 matchs?

on suppose que tes matchs sont en colonne 1. les combinaisons seront en 2,3,4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
apres déclaration de toutes les variable

ligne_enregistrement=1

for i =1 to nb_de_matchs

  for j=1 to nb_de_match

     if cells(j,1)<>cells(i,1) then

        for k=1 to nb_de_match

           if cells(k,1)<>cells(j,1) and cells(k,1)<>cells(i,1) then

              cells(ligne_enregistrement,2)=cells(i,1)
              cells(ligne_enregistrement,3)=cells(j,1)
              cells(ligne_enregistrement,4)=cells(k,1)
              ligne_enregistrement=ligne_enregistrement+1

           end if

       next k

     end if

  next j

next i

et toutes tes possibilités seront donnés

**ouskel'n'or** · 04/10/2006, 15h34

Envoyé par sk8bcn

mmmm

Envoyé par rouls

En fonction du nbre de matchs(environ 5 ou 6), je calcule le nbre de combinés possible - Ex: 10 combinés pour 5 matchs.

**rouls** · 04/10/2006, 15h45

Je n'avais pas précisé : il ne faut pas que j'affiche des doublons .
Ex: combiné 1 2 3 = combiné 2 1 3

C'est pour ça que je dois resortir 10 combinaisons de 3 pour 5 matchs (si je ne me suis pas trompé ) :

Match 1
Match 2
Match 3
Match 4
Match 5

doit sortir 10 combinés :

123
124
125
134
135
145
234
235
245
345

**ThierryAIM** · 04/10/2006, 15h59

le nombre de combinaison t'es donné par ce que je t'ai mis plus haut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C = 5! / p! (n-p)! = 5! / 3! (5-3)! = 5x4x3x2x1 / 3x2x1 (2x1) = 120/12 = 10

donc sur le nombre, tu ne t'es pas trompé

Quant à écrire les différentes combinaisons, c'est autre chose, et je ne vois pas beaucoup d'autre solution que les boucles imbriquées

A défaut de solution toute faite, tu auras fait une petite révision de maths

**rouls** · 04/10/2006, 16h05

merci pour la formule mais à défaut de l'avoir je m'étais fait ma formule artisanale pour trouver le nbre de combinés possible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
While (Cells(i, 1) <> "")
    ReDim Preserve match(i)
    match(i) = Cells(i, 1).Text
    i = i + 1
Wend

nb_matchs = i - 1

For j = 1 To nb_matchs - 2
    nb_apparitions = nb_apparitions + j
    nb_combinés = nb_combinés + nb_apparitions
Next j

MsgBox "Il y a " & nb_matchs & " matchs." & Chr(13) & "Chaque match apparait " & nb_apparitions & " fois " & Chr(13) & "Il y a " & nb_combinés & " combinés possibles."

Mais maintenant je ne vois pas comment organiser les combinés....ss doublons

**sk8bcn** · 04/10/2006, 17h57

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
enr=1
 
for i=1 to 3
  for j= i+1 to 4
    for k=j+1 to 5
 
        cells(enr,2)=cells(i,1)
        cells(enr,3)=cells(j,1)
        cells(enr,4)=cells(k,1)
        enr =enr+1
     next k
   next j
next i

**Lexot2** · 05/10/2006, 07h01

Bonjour

J'ai testé ces 2 macros et ça marche!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim a(20) As Integer, i1 As Integer, lig As Integer, v1 As String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Triple()
 
lig = 1: Columns("A:A").ClearContents
n1 = InputBox("Nombre de matchs")
For i1 = 1 To 3: a(i1) = i1: Next
Affiche
Do Until a(1) = n1 - 2
    Do Until a(2) = n1 - 1
        Do Until a(3) = n1
            a(3) = a(3) + 1
            Affiche
        Loop
        a(2) = a(2) + 1: a(3) = a(2) + 1
        Affiche
    Loop
    a(1) = a(1) + 1: a(2) = a(1) + 1: a(3) = a(2) + 1
    Affiche
Loop
Range("C1").Value = Str(n1) & " matchs"
Range("D1").Value = Str(lig - 1) & " combinaisons"
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Affiche()
 
v1 = Str(a(1)) & Str(a(2)) & Str(a(3))
Cells(lig, 1).Value = v1
lig = lig + 1
 
End Sub

Pense à mettre les déclarations en tête de la procédure.
Les 2 macros "Triple" et "Affiche" doivent se trouver dans la même procédure.
On inscrit le nombre de matchs dans l'inputbox, et on obtient le nombre de combinaisons, et le détail des combinés dans la colonne A1.

Cordialement

**rouls** · 05/10/2006, 08h37

Envoyé par sk8bcn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
enr=1
 
for i=1 to 3
  for j= i+1 to 4
    for k=j+1 to 5
 
        cells(enr,2)=cells(i,1)
        cells(enr,3)=cells(j,1)
        cells(enr,4)=cells(k,1)
        enr =enr+1
     next k
   next j
next i