Sujet Précédent Sujet Suivant

VBA générer une série de chiffre aléatoire

Résolu/Fermé
majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
 - Modifié le 6 sept. 2017 à 16:27
pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
 - 6 sept. 2017 à 12:53
Bonjour à toutes et à tous,


Bon, voilà, j'ai plusieurs méthodes pour les jeux de casino (principalement la roulette) que j'aimerai tester à blanc. Certaines sont me semble t-il prometteuses. Pour d'autres, j'ai de gros doutes mais j'aimerais tester.

L'idéal serait d'avoir un petit programme simple. Je pense que VBA serait largement suffisant.

L'idée est de générer une série de chiffre aléatoire (10000 ou plus) et de voir ce que donne mes méthodes.

Sachant que je ne connais rien en programmation, je cherche quelqu'un qui serait intéressé pour développer çà


merci à toutes et à tous

2 réponses

Réponse 1 / 2
pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
 2 701
Modifié le 6 sept. 2017 à 10:54
Bonjour,

générer une série de chiffre aléatoire (10000 ou plus)
Tu veux la version "soft" ou la version "hard"?

Des chiffres entre 0 et ???


Cordialement,
Franck
0
majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
6 sept. 2017 à 11:44
salut,

Qu'appelles-tu version "hard"

Il s'agit de chiffres entre 0 et 36

matt
0
pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
 2 701 > majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
6 sept. 2017 à 11:45
Entre 0 et 36 ==> version "soft" suffit.
Je te bricole ça dans un instant.
0
majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
 > pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
6 sept. 2017 à 11:49
super!!

t'es trop fort
0
Réponse 2 / 2
pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
 2 701
Modifié le 6 sept. 2017 à 12:45
Voici le code.
Il te place en colonne A une suite de 10 000 (à adapter dans le code) nombres aléatoires compris entre 0 et 36 (inclus). 
Option Explicit

Public Sub Liste_Aleas()
Dim i As Long, TbResults() As Long
Const NB As Long = 10000 'A ADAPTER : nre de nombres aléatoires désirés

    ReDim TbResults(1 To NB, 1 To 1)
    For i = 1 To NB
        TbResults(i, 1) = NbAlea(0, 36)
    Next
    Range("A1").Resize(UBound(TbResults)) = TbResults
End Sub

Private Function NbAlea(min As Long, Max As Long) As Long
    Randomize Timer
    NbAlea = Int((Max - min + 1) * Rnd + min)
End Function


EDIT : Fonction NbAlea simplifiée

Cordialement,
Franck
0
majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
6 sept. 2017 à 12:41
Je sais que je suis nul en VBA mais je suis encore plus nul que je le pensais...

J'arrive pas à executer la macro...
0
pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
 2 701 > majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
6 sept. 2017 à 12:46
Oui, il y avait une petite erreur, corrigée maintenant.

Sinon, voici un fichier : https://www.cjoint.com/c/GIgkUrJHIDE
0
victor > majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
6 sept. 2017 à 12:46
Remplacer NbAleaV2 = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)
0
pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
 2 701 > victor
6 sept. 2017 à 12:48
Oui victor (Bonjour),
J'ai modifié...
0
majival
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
6 sept. 2017 à 12:51
yes, çà marche
Je t'explique les méthodes en privé pour que l'on voit ce que çà donne?
0