Générateur aléatoire discontinue

James Dean · 10 Mars 2020

Bonjour, Bonsoir
J'aimerai créer un programme VBA permettant de générer un nombre aléatoire. Cependant, les nombres que j'ai besoin de générer sont discontinues. Pour être exact j'ai besoin de créer un générateur qui génère les nombres suivants : 20, 24, 36 et 48.
Une idée ?
Merci d'avance

Fred0o · 10 Mars 2020

Bonjour James Dean
Voici une macro a adapter qui te genere aleatoirement un des 4 nombres desires et les ajoute place dans la colonne A.
A adapter a ton besoin

VB:

Sub Aleatoire()
    Randomize
    i = 1
    For i = 1 To 50
        Cells(i, 1) = Choose(Int((4 * Rnd) + 1), 20, 24, 36, 48)
    Next
End Sub

jmfmarques · 10 Mars 2020

Bonjour

Une idée ?

En voilà une, qui s'impose à la pensée.
Mettre ces ' valeurs dans un array et faire un tirage sur les 4 index de cet array

James Dean · 10 Mars 2020

MERCI ! Après adaptation c'est parfait !

James Dean · 10 Mars 2020

jmfmarques à dit:
Bonjour

En voilà une, qui s'impose à la pensée.
Mettre ces ' valeurs dans un array et faire un tirage sur les 4 index de cet array

Du coup la réponse précédente me satisfait, merci quand même de votre temps !

Générateur aléatoire discontinue

James Dean

XLDnaute Nouveau

Fred0o

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

James Dean

XLDnaute Nouveau

James Dean

XLDnaute Nouveau

Discussions similaires