XL 2010 Compter le nombre de tirage

[mic6259]

Bonjour
Suivant la pièce jointe, serait-il possible de créer un compteur dans H2 par exemple, a chaque tirage et avec un bouton remettre a 0
Merci beaucoup

 

[Fred0o]

Bonjour mic6259

Voir ma proposition en piece jointe. J'utilise une macro évènementielle qui remet a zero H2 quand tu sélectionnes la cellule H1.

 

[mic6259]

Merci beaucoup Fred super çà marche
Cordialement

 

[soan]

Bonjour mic6259, Fred0o,

ton fichier en retour.

j'ai amélioré la présentation, et optimisé le code VBA ; pour faire un tirage : clique sur le rectangle jaune "Tirage", ou fais Ctrl t ; pour effacer le compteur : clique sur la bulle jaune "Effacer", ou fais Ctrl e.​

code VBA de Module1 :

Option Explicit

Sub Tirage()
  Dim Tirag As Object, Nbr As Byte
  Randomize Timer: Set Tirag = CreateObject("Scripting.Dictionary")
  Application.ScreenUpdating = 0: [D2:D6].ClearContents
  Do While Tirag.Count < 5
    Nbr = Int(49 * Rnd) + 1 'n° compris entre 1 et 49
    Tirag(Nbr) = Nbr
  Loop
  [D2:D6] = Application.Transpose(Tirag.Items)  '5 n°
  [E2] = Int(10 * Rnd) + 1  'n° compris entre 1 et 10
  [H2] = [H2] + 1
End Sub

Sub Cpt0()
  [H2] = 0
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

 

[Fred0o]

Re-bonjour mic6259, soan

Petite amelioration des fonctionnalités pour connaitre l'ampleur des dégâts

 

[mic6259]

Merci à vous deux, vous êtes super, je prends les deux fichiers qui sont plus pratiques.
Merci beaucoup. Cordialement

 

[soan]

@Fred0o

pour ta série de 300 tirages et tes autres chiffres, ça donne :

* 34,3333 % de chances d'avoir 1 n° gagnant !

* 8 % de chances d'avoir 2 numéros gagnants !

* 0,3333 % de chances d'avoir 3 numéros gagnants

* 0 % de chances d'avoir 4 numéros gagnants

* 0 % de chances d'avoir 5 numéros gagnants

* 10,6667 % de chances d'avoir le n° étoile

* 57,3333 % de chances de rien avoir du tout !

soan

 

[mic6259]

Bonjour Fred et Soan
Serait-il possible en plus de connaitre le nombre de fois que chaque numéro sortent.
C'est formidable ce que vous faites.
merci beaucoup

 

[Fred0o]

Bonjour mic6259, soan, le forum

Voici une proposition. J'ai aussi rajoute une Sub Boucle qui permet de lancer un nombre de tirages souhaite (1000 dans l'exemple).

 

[Fred0o]

Re-bonjour

Je me suis amuse a mettre un peu de statistiques dans tout ca

 

[mic6259]

Bien vu c'est encore mieux par rapport a ce que je voulais.
Merci beaucoup
Très cordialement

 

[mic6259]

Re: Si c'est trop abuser, il manque les Etoiles, il sont sur 10 n°
Merci pour votre travail très bien réussi

 

[Fred0o]

Bonjour mic6259

Tu veux parler des statistiques associées aux numéros etoiles ?
Et je crois qu'il n'y a que 9 numéros de 1 a 9.

J'ai un problème avec ton code. Au bout de 500000 tirages, il n'a toujours pas sorti de combinaison ou on a trouve 4 numéros.

 

[Fred0o]

Re-bonjour

J'ai fait un mix du code de Soan et du mien, j'ai rajoute ta dernière demande et j'ai modifie la base du Random. Maintenant on sort des 4 numéros mais pas encore le Jack-pot après 100000 tirages.
Pour lacer une série de tirages, change le nombre en F4.