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:

Nombre aléatoire vba
Erreur 1004 vba ✓ - Forum VB / VBA
En raison d'un nombre important d'échec de connexion snapchat - Forum Snapchat
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions
Vba convertir texte en nombre ✓ - Forum Bureautique

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 743
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 743 > 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 743
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 743 > 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

Snapchat locked : mon compte snapchat est bloqué

"L'indice n'appartient à la sélection" + VBA

VBA - Conversion d'un texte en nombre

VBA : Range avec références variables..

tirage aléatoire sans doublon

Discussions similaires

Newsletters