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

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
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
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.
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
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
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
>
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)
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é...
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?
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