Affichage texte aléatoire

[lutha]

Bonjour, et bonsoir !

Je souhaiterais trouver un code qui me choisi 20 mots aléatoire dans une liste (auquel sont susceptible de se rajouter des données) et qui me les affiche dans une feuille différente

Je connais pas du tout comment fonctionne la fonction aléatoire. Pourriez vous m'aider a résoudre ce problème ou du moins m'expliquer comme elle marche.
J'avais imaginer que la fonction me sorte un numéro et utiliser ce numéro pour etre le numéro de la ligne du mot.
voilà où j'en suis ...

Private Sub randomize()
With Worksheets("Feuil1")
Dernligne = Range("A65536").End(xlUp).Row
randomValue = CInt(Int((Dernligne - 2 + 1) * Rnd())) + lowerbound
Cellule = Cells(randomValue, 1).Select
End With

End Sub

Mais je ne vois aucun résultat je n'arrive pas a afficher quelque part...
je vous remercie de votre aide =)
Bonne soirée !

 

[excfl]

Re : Affichage texte aléatoire

Bonsoir le forum,

Mots à définir en feuille 2.

Mot aléatoire en feuille 1.

excfl

 

[lutha]

Re : Affichage texte aléatoire

Je te remercie pour ton aide !
ça marche parfaitement !!
J'étais loin du compte ...