Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Tu veux jouer au loto ?...hi hi hi...pas de blème...je vais t'aider à gagner...
voici une macro qui fait cela très bien...elle te donne aléatoirement 7 numéros à chaque fois...
Sub LOTO()
Dim Ligne As Long
Randomize
[A1] = Int(49 * Rnd + 1)
For Ligne = 1 To 6
Do
Range("A1").Offset(Ligne, 0).Value = Int(49 * Rnd + 1)
Loop Until IsError(Application.Match(Range("A1"). _
Offset(Ligne, 0), Range("A1").Resize(Ligne, 1), 0))
Next Ligne
End Sub
si tu gagnes tu pense à nous...loool
PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs GRAS du post dedans...
arf non !...j'ai lu trop vite...bon là j'te le fait pas car on frise les 100 millions de possibilités si ce n'est pas plus...alors tu coup ta macro risque de tourner pendant plusieurs jours...loool
Bonsoir à vous deux.
Montail, si tu veux toutes les combinaisons possibles, accroches-toi:
Pour calculer la probabilité de trouver 6 numéros au loto, il suffit de trouver combien il existe de series non ordonnées de 9 nombres choisis parmi 49. La formule statistique qui calcule cela est:
(44 x 45 x 46 x 47 x 48 x 49) / (6 x 5 x 4 x 3 x 2)
soit 13 983 816.
Bref, si tu les veux toutes, cela va prendre un certains nombres de cellules d'un certains nombres de feuilles!
Et oui, il n'y a qu'1 chance sur 13 983 816 de gagner le gros lot.
arf oui...merci de la précision LaurentTBT...j'ai vu un peu gros avec mes 100 millions là..mais les chiffres avec plusieurs zéro me font perdre la tête...hi hi hi
bon par contre Excel avec ses 16777216 de cellules sur chaque feuille permettrait d'y stocker les combinaisons...mais faudra alors pas mal de ressources mémoire...loool
Si c'est mon bulletin le bon, je veux bien tenter le coup!
Bon, j'ai dû jouer une fois au loto dans ma vie. Je suis trop cartésien pour y croire (1 chance sur 13 983 816). Mais bon, je me suis dit que la véritable chance serait de gagner au premier essai. Et vous savez quoi? ........
Je ne roule toujours pas en Porsche.
Toujours est-il que pour le fun, je me demande quel algorythme pourrait nous les donner, ces 13 983 816 combinaisons.
J'ai une petite idée, à partir de celui que j'ai trouvé il y a quelque jours.
( cf ce post: Lien supprimé , sujet sur lequel j'ai encore du travail)
Si je fais la même chose pour avoir toutes les combinaisons de 0 et 1 sur 49 chiffres, et en éliminant toutes celles dont la sommes des 0 et 1 ne serait pas 6, j'aurais la solution. Ce n'est pas des jours, mais des mois qu'il me faudrait car la boucle serait For n=1 to 2 puissance 49.
Bref, il doit y avoir mieux!
Bonne nuit à tous.
sub loto()
dim chiffre(5) as integer
dim compte as double
dim i,j,k,l,m,n as integer
compte=0
open "GROSLOTO" for outpout as #1
for i=1 to 44
for j=i+1 to 45
for k=j+1 to 46
for l=k+1 to 47
for m=l+1 to 48
for n=m+1 to 49
chiffre(0)=i
chiffre(1)=j
chiffre(2)=k
chiffre(3)=l
chiffre(4)=m
chiffre(5)=n
print #1 chiffre(0);".";chiffre(1);".";chiffre(2);"."
;chiffre(3);".";chiffre(4);".";chiffre(5)
print #1,
compte=compte+1
next
next
next
next
next
next
end sub
435 MO, 400 000 pages et 10 minutes pour calculer (ordi puissant)
Voici une adresse où tu trouveras un prog pour le Loto.
<http://www.loto-alchimie.com/index.html>
Je ne sais pas ce que tu veux faire avec tes combinaisons, mais je me souvient que sur le net, j'ai vu une fois un log sous Excel.
Si c'est pour jouer, je te conseillerais plutôt le LotoFoot, car au lieu de partir à 13 000 000 de combinaisons tu ne pars qu'à 1 500 000, ou au rapido ou encore au Kéno.
Rapidement quelques chiffres :
Au Loto, il existe exactement 13 983 816 combinaisons.
Si tu voulais toutes les écrire sous excel (Ce qui est possible), ton fichier, une fois fini ferait 190 Mo.
A condition de concaténer, chaque combi de 6 chiffres par cellule.
Sinon, en écrivant un chiffre par cellule, ton fichier ferait plus de 500 Mo.
Avec un Pc qui tourne à 2 Ghz avec une mémoire vive de 1Go à 333Mghz, il te faudrait plus de 45 minutes pour calculer toutes les combinaisons.
Maintenant en concaténant tes 6 chiffres par cellule, il te faudrait :
13 983 816 cellules, sachant qu'une feuille Excel contient 256 * 65 536 = 16 777 216 cellules, une seule feuille te suffirait.
En considérant que tu laisses 6 lignes vides par colonnes, cela prendrait 13 983 816 / 65 530 = 214 colonnes.
Maintenant en écrivant un chiffre par cellule et en écrivant les combinaisons en ligne :
Tu pourrais écrire par ligne 256 / 6 = 42 combinaisons * 65 530 = 2 752 260
combinaisons par feuille.
Il te faudrait donc 13 983 816 / 2 752 260 = 6 feuilles.
Maintenant en écrivant un chiffre par cellule et en écrivant les combinaisons en Colonne :
Tu pourrais écrire par colonne 65 530 / 6 = 10 921 combinaisons
Il te faudrait donc 13 983 816 / 10 921 = 1281 Colonnes
J'ai essayer de mettre le prog en VB que tu as mis mais chez moi ca ne marche pas. Peux tu m'indiquer la marche a suivre pour le faire car j'ai du faire une mauvaise manip.
Copier B2 sur les éventuelles colonnes restant vide en ligne 2
Copier la 2ème ligne jusqu'à la ligne Combin(x,y)
3 exemples dans le classeur joint.
Si Combin(x,y) > nombre de ligne d'une feuille, sur une nouvelle feuille ligne 1 écrire la combinaison suivante puis copier les formules de la feuille 1 ligne 2 sur la feuille 2 ligne 1.
Lollllllllllllll Kendev j'avais pas vu que cela faisait huit ans, je vais essayer de voir ce que tu as fait demain et je te tiens au courant et a premiere vue d'oeil ca ma l'air compliqué lollllllllllll en tous cas merci de m'avoir aider
je te tiens au courant a +
Copier B2 sur les éventuelles colonnes restant vide en ligne 2
Copier la 2ème ligne jusqu'à la ligne Combin(x,y)
3 exemples dans le classeur joint.
Si Combin(x,y) > nombre de ligne d'une feuille, sur une nouvelle feuille ligne 1 écrire la combinaison suivante puis copier les formules de la feuille 1 ligne 2 sur la feuille 2 ligne 1.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.
