Générateur aléatoire discontinue

[James Dean]

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]

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

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]

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]

MERCI ! Après adaptation c'est parfait !

 

[James Dean]

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 !