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

Résolu/Fermé

majival Messages postés 23 Date d'inscription mercredi 6 septembre 2017 Statut Membre Dernière intervention 5 décembre 2017 - Modifié le 6 sept. 2017 à 16:27
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 6 sept. 2017 à 12:53

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

A voir également:

Série de nombre aléatoire
Nombre facile - Télécharger - Outils professionnels
Site de téléchargement de série indienne en français - Forum Cinéma / Télé
Kahoot gratuit nombre de participants - Forum Réseaux sociaux
Télécharger idm gratuitement sans numéro de série - Forum Logiciels
En raison d'un nombre important d'échec de connexion snapchat ✓ - Forum Snapchat

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié le 6 sept. 2017 à 10:54

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 Messages postés 23 Date d'inscription mercredi 6 septembre 2017 Statut Membre Dernière intervention 5 décembre 2017
6 sept. 2017 à 11:44

salut,

Qu'appelles-tu version "hard"

Il s'agit de chiffres entre 0 et 36

matt

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751 > majival Messages postés 23 Date d'inscription mercredi 6 septembre 2017 Statut Membre Dernière intervention 5 décembre 2017
6 sept. 2017 à 11:45

Entre 0 et 36 ==> version "soft" suffit.
Je te bricole ça dans un instant.

majival Messages postés 23 Date d'inscription mercredi 6 septembre 2017 Statut Membre Dernière intervention 5 décembre 2017 > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
6 sept. 2017 à 11:49

super!!

t'es trop fort

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié le 6 sept. 2017 à 12:45

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

majival Messages postés 23 Date d'inscription mercredi 6 septembre 2017 Statut Membre Dernière intervention 5 décembre 2017
6 sept. 2017 à 12:41

Je sais que je suis nul en VBA mais je suis encore plus nul que je le pensais...

J'arrive pas à executer la macro...

Oui, il y avait une petite erreur, corrigée maintenant.

Sinon, voici un fichier : https://www.cjoint.com/c/GIgkUrJHIDE

victor > majival Messages postés 23 Date d'inscription mercredi 6 septembre 2017 Statut Membre Dernière intervention 5 décembre 2017
6 sept. 2017 à 12:46

Remplacer NbAleaV2 = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751 > victor
6 sept. 2017 à 12:48

Oui victor (Bonjour),
J'ai modifié...

majival Messages postés 23 Date d'inscription mercredi 6 septembre 2017 Statut Membre Dernière intervention 5 décembre 2017
6 sept. 2017 à 12:51

yes, çà marche
Je t'explique les méthodes en privé pour que l'on voit ce que çà donne?

Discussions similaires

Retrouver le n° de série d'IDM.

Accès a Snapchat temporairement désactivé

portable samsung bloqué trop de tentatives

Regarder Erkenci kus en français

tirage aléatoire sans doublon