Obtenir aléatoirement un nom dans une liste

[Magic_Doctor]

Bonjour à tous,

Je dispose d'une liste d'une dixaine de noms. Par le biais d'une macro, chaque fois qu'elle se déclenche, je voudrais obtenir un nom au hasard provenant de cette liste.

Quequ'un pourrait-il m'aider à retirer cette aiguille du pied ?

Merci d'avance

 

[porcinet82]

Re : Obtenir aléatoirement un nom dans une liste

Salut,

Pour utiliser quelque chose d'aléatoire sur excel, il faut utiliser la fonction randomize.
Voici un exemple de code qui te tire une personne au sort, en admettant que ta liste soit entre A1 et A10

Sub test()
Dim MyValue As String
Randomize
MyValue = Cells(Int((10 * Rnd) + 1), 1).Value
MsgBox "nom de la personne au hasard : " & MyValue
End Sub

@+

 

[Magic_Doctor]

Re : Obtenir aléatoirement un nom dans une liste

Merci Porcinet82.
Ça fonctionne comme je le désirais.

 

[Magic_Doctor]

Re : Obtenir aléatoirement un nom dans une liste

Petit rectificatif grace au conseil précédent.
Plutôt que d'encombrer ma feuille avec une liste, je la mets directement dans la macro.
Exemple :

Sub test()

Dim MyValue As String
Dim tabParticules As Variant

tabParticules = Array("denis", "brigitte", "léon", "marion", "jeanne", "françoise")

Randomize

[c4].Value = tabParticules(Int(6 * Rnd))

End Sub

Merci encore Porcinet

 

[Pierrot93]

Re : Obtenir aléatoirement un nom dans une liste

Bonsoir Magiq Doctor, Romain

pour le fun, un code de Didier MDF🙂, utilisant la fonction "Choose" :

Randomize
Range("C4").Value = Choose(Int((6 * Rnd) + 1), "denis", "brigitte", "léon", "marion", "jeanne", "françoise")

bonne soirée
@+

 

[Magic_Doctor]

Re : Obtenir aléatoirement un nom dans une liste

Bravo et merci Pierrot + Didier.

En 2 phrases : problème réglé et avec quelle élégance !

Décidément dans ce forum on en apprend tous les jours (je ne connaissais pas la fonction "Choose"). On part d'une idée, un "XLDnaute" donne une solution, on peaufine et un nouvel XLDnaute apporte la cerise sur le gâteau !

Dommage que sous mes latitudes il n'y ait pas un tel forum.
¡Es por eso que las cosas son así acá!