alea

Si je me souviens bien, c'est jusque 42 le lotto?!?

=ENT(ALEA()*42+1)

Voilà

EMiLe

Bonjour à toutes et tous.
J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler
un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me rapelle
plus comment faire je sais que c'était avec la fonction Aléa mais c'est tout
.Merci d'avance de vos réponses . Alain

Bonsoir,

Dans 6 cellules différentes, recopie la formule :

=ENT(ALEA()*49)+1

Courage !

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a
écrit dans le message de
news:E8B43B9E-82D3-4127-9EB7-19A7EF155C4F@microsoft.com...

Bonjour à toutes et tous.
J'ai vu sur un livre Excel que l'on m'avait prété que l'on pouvait simuler
un tirage de loto enfin de plusieurs bien sur. Mais oui mais je ne me
rapelle

plus comment faire je sais que c'était avec la fonction Aléa mais c'est
tout

.Merci d'avance de vos réponses . Alain

Juste une petite remarque,

les probas étant ce qu'elles sont, en utilisant les formules d'EMiLe et de
Joël, tu pourras avoir à un moment ou un autre le même numéro qui sortira
dans la même série de 6...

CAP2

grr...

Je cherche une solution...

EMiLe

Juste une petite remarque,

les probas étant ce qu'elles sont, en utilisant les formules d'EMiLe et de
Joël, tu pourras avoir à un moment ou un autre le même numéro qui sortira
dans la même série de 6...

CAP2

Et oui !!

Quant à calculer la probabilité d'obtenir 6 fois le même numéro ...

Cela nous fait quoi ?

1 chance sur 49^6,
soit 1 chance sur 13 841 287 201
ou autant de chance que de gagner au loto en une seule combinaison de 6
numéros !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"CAP2" <CAP2@azerty.net> a écrit dans le message de
news:Oh79bDYoEHA.3520@TK2MSFTNGP11.phx.gbl...

Juste une petite remarque,

les probas étant ce qu'elles sont, en utilisant les formules d'EMiLe et de
Joël, tu pourras avoir à un moment ou un autre le même numéro qui sortira
dans la même série de 6...

CAP2

Si c'est vraiment indispensable, on peut te faire une petite macro, mais
cela en vaut-il vraiment la peine??

EMiLe

Et oui !!

Quant à calculer la probabilité d'obtenir 6 fois le même numéro ...

Cela nous fait quoi ?

1 chance sur 49^6,
soit 1 chance sur 13 841 287 201
ou autant de chance que de gagner au loto en une seule combinaison de 6
numéros !!!

Comme celle-Ci par exemple :

Sub Loto()
Dim i As Integer
For i = 1 To 6
Cells(i, 1).Value = Int((Rnd * 49) + 1)
If i > 2 Then
Do Until Intersect(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 1))) Is
Nothing
Cells(i, 1).Value = Int((Rnd * 49) + 1)
Loop
End If
Next
End Sub

Pas de doublon !!!

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"EMiLe" <emilefyon@altern.org> a écrit dans le message de
news:eXw5RMYoEHA.2912@TK2MSFTNGP10.phx.gbl...

Si c'est vraiment indispensable, on peut te faire une petite macro, mais
cela en vaut-il vraiment la peine??

EMiLe

Et oui !!

Quant à calculer la probabilité d'obtenir 6 fois le même numéro ...

Cela nous fait quoi ?

1 chance sur 49^6,
soit 1 chance sur 13 841 287 201
ou autant de chance que de gagner au loto en une seule combinaison de 6
numéros !!!

Salut,

une petite solution pas très propre, mais bon :

Dans une cellule (par exemple D1, qui peut être masquée pour être plus
discret) tu mets la formule suivante (en supposant que les 6 chiffres
doivent apparaître en A1:A6) :

=NBVAL(A1:A6)-SOMMEPROD(1/NB.SI(A1:A6;A1:A6))

Puis dans le code d'une macro, tu mets ça :

Sub TestLoto()
Dim i As Byte

Randomize

Do

For i = 1 To 6
Range("A" & i) = Int(Rnd() * 49 + 1)
Next

Loop While [D1] <> 0

End Sub

Et là fini les doublons ;o))

A plus

CAP2

Si tu excécutes cette macro une dizaine de fois, tu verras qu'il y a des
doublons...

Try again... :)

Amicalement

EMiLe

Comme celle-Ci par exemple :

Sub Loto()
Dim i As Integer
For i = 1 To 6
Cells(i, 1).Value = Int((Rnd * 49) + 1)
If i > 2 Then
Do Until Intersect(Cells(i, 1), Range(Cells(1, 1), Cells(i - 1, 1))) Is
Nothing
Cells(i, 1).Value = Int((Rnd * 49) + 1)
Loop
End If
Next
End Sub

Pas de doublon !!!

Sub LOTO()
Application.ScreenUpdating = False
For i = 1 To 6
Cells(i, 1) = Int((49 * Rnd) + 1)
If i > 1 Then
While Not Range(Cells(1, 1), Cells(i - 1, 1)).Find(Cells(i, 1)) Is
Nothing
Cells(i, 1) = Int((49 * Rnd) + 1)
Wend
End If
Next
End Sub

AV