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

Résolu
majival Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention  
 
salut,

Qu'appelles-tu version "hard"

Il s'agit de chiffres entre 0 et 36

matt
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > majival Messages postés 23 Date d'inscription   Statut Membre Dernière intervention  
 
Entre 0 et 36 ==> version "soft" suffit.
Je te bricole ça dans un instant.
0
majival Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   > pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention  
 
super!!

t'es trop fort
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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   Statut Membre Dernière intervention  
 
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 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > majival Messages postés 23 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
Remplacer NbAleaV2 = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761 > victor
 
Oui victor (Bonjour),
J'ai modifié...
0
majival Messages postés 23 Date d'inscription   Statut Membre Dernière intervention  
 
yes, çà marche
Je t'explique les méthodes en privé pour que l'on voit ce que çà donne?
0