Choix aléatoire

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2007

• #2

Re : Choix aléatoire

Bonjour Benharber,

essaye la macro ci dessous :

Code:

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
@+

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 27 Juillet 2007

• #3

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,

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 28 Juillet 2007

• #4

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 :

Code:

[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,

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Juillet 2007

• #5

Re : Choix aléatoire

Bonjour BenHarber, Didier

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

 

Vote positif 0 Vote négatif