Choix aléatoire

[BenHarber]

Bonjour Le Forum,
Je souhaiterais, dans le code VBA d'une macro, initialiser de façon aléatoire entre 5 choix possibles ('A', 'B', 'C', 'D' ou 'E') une variable texte.
Quelqu'un pourrait-il me donner la solution ou un conseil ?

Merci d'avance,
Cordialement

 

[Pierrot93]

Re : Choix aléatoire

Bonjour Benharber,

essaye la macro ci dessous :

Sub test()
Dim x As Byte, montxt(), maval As String
montxt = Array("a", "b", "c", "d", "e")
Randomize
x = Int((5 * Rnd) + 1)
maval = montxt(x - 1)
End Sub

bon après midi
@+

 

[BenHarber]

Re : Choix aléatoire

Nickel chrome !
Je n'ai jamais le réflexe de passer par un tableau...il faut vraiment que j'intègre cette approche !
Merci Pierrot93.

Cordialement,

 

[myDearFriend!]

Re : Choix aléatoire

Bonsoir BenHarber, Pierrot93,

En complément de la très bonne solution de l'ami Pierrot93, on peut aussi faire comme ça :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] test()
[COLOR=NAVY]Dim[/COLOR] MaVal [COLOR=NAVY]As String[/COLOR]
    Randomize
    MaVal = Choose(Int((5 * Rnd) + 1), "a", "b", "c", "d", "e")
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Cordialement,

 

[Pierrot93]

Re : Choix aléatoire

Bonjour BenHarber, Didier

Bravo Didier 🙂 , en une seule ligne, impeccable, comme d'hab...Merci de ta solution.