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

Question

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

pijaku · Answer

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

pijaku · Answer

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

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

2 réponses

Discussions similaires

Newsletters