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

Signaler
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
 -
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 -
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
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 2 575
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
Signaler
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
salut,

Qu'appelles-tu version "hard"

Il s'agit de chiffres entre 0 et 36

matt
Signaler
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 2 575 >
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
Entre 0 et 36 ==> version "soft" suffit.
Je te bricole ça dans un instant.
Signaler
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
 >
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
super!!

t'es trop fort
Réponse 2 / 2
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 2 575
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
Afficher les 6 commentaires
Signaler
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 2 575 >
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
Oui, il y avait une petite erreur, corrigée maintenant.

Sinon, voici un fichier : https://www.cjoint.com/c/GIgkUrJHIDE
Signaler
>
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
Remplacer NbAleaV2 = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)
Signaler
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 2 575 > victor
Oui victor (Bonjour),
J'ai modifié...
Signaler
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
yes, çà marche
Je t'explique les méthodes en privé pour que l'on voit ce que çà donne?
Signaler
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 2 575 >
Messages postés
23
Date d'inscription
mercredi 6 septembre 2017
Statut
Membre
Dernière intervention
5 décembre 2017
ok
Posez votre question