Signaler

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

Posez votre question majival 21Messages postés mercredi 6 septembre 2017Date d'inscription 13 septembre 2017 Dernière intervention - Dernière réponse le 6 sept. 2017 à 12:53 par pijaku
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
Utile
+0
plus moins
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 21Messages postés mercredi 6 septembre 2017Date d'inscription 13 septembre 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
Répondre
pijaku 12206Messages postés jeudi 15 mai 2008Date d'inscription ModérateurStatut 13 septembre 2017 Dernière intervention - 6 sept. 2017 à 11:45
Entre 0 et 36 ==> version "soft" suffit.
Je te bricole ça dans un instant.
Répondre
majival 21Messages postés mercredi 6 septembre 2017Date d'inscription 13 septembre 2017 Dernière intervention - 6 sept. 2017 à 11:49
super!!

t'es trop fort
Répondre
Donnez votre avis
Utile
+0
plus moins
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 12206Messages postés jeudi 15 mai 2008Date d'inscription ModérateurStatut 13 septembre 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
Répondre
victor majival - 6 sept. 2017 à 12:46
Remplacer NbAleaV2 = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)
Répondre
pijaku 12206Messages postés jeudi 15 mai 2008Date d'inscription ModérateurStatut 13 septembre 2017 Dernière intervention - 6 sept. 2017 à 12:48
Oui victor (Bonjour),
J'ai modifié...
Répondre
majival 21Messages postés mercredi 6 septembre 2017Date d'inscription 13 septembre 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?
Répondre
pijaku 12206Messages postés jeudi 15 mai 2008Date d'inscription ModérateurStatut 13 septembre 2017 Dernière intervention - 6 sept. 2017 à 12:53
ok
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !