Menu

VBA générer une série de chiffre aléatoire [Résolu]

majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention - 6 sept. 2017 à 10:39 - Dernière réponse : pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention
- 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
Afficher la suite 

Votre réponse

11 réponses

pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention - Modifié par pijaku le 6/09/2017 à 10:54
0
Merci
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
majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention - 6 sept. 2017 à 11:44
salut,

Qu'appelles-tu version "hard"

Il s'agit de chiffres entre 0 et 36

matt
pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention > majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention - 6 sept. 2017 à 11:45
Entre 0 et 36 ==> version "soft" suffit.
Je te bricole ça dans un instant.
majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention > pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention - 6 sept. 2017 à 11:49
super!!

t'es trop fort
Commenter la réponse de pijaku
pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention - Modifié par pijaku le 6/09/2017 à 12:45
0
Merci
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
pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention > majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention - 6 sept. 2017 à 12:46
Oui, il y avait une petite erreur, corrigée maintenant.

Sinon, voici un fichier : http://www.cjoint.com/c/GIgkUrJHIDE
victor > majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention - 6 sept. 2017 à 12:46
Remplacer NbAleaV2 = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)
pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention > victor - 6 sept. 2017 à 12:48
Oui victor (Bonjour),
J'ai modifié...
majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention - 6 sept. 2017 à 12:51
yes, çà marche
Je t'explique les méthodes en privé pour que l'on voit ce que çà donne?
pijaku 12205 Messages postés jeudi 15 mai 2008Date d'inscriptionModérateurStatut 13 septembre 2017 Dernière intervention > majival 23 Messages postés mercredi 6 septembre 2017Date d'inscription 5 décembre 2017 Dernière intervention - 6 sept. 2017 à 12:53
ok
Commenter la réponse de pijaku