XL 2016 Mots aléatoires sans doublons

Etoto

XLDnaute Barbatruc
Bonjour,

J'aimerais faire qu'une formule (ou un VBA, comme vous voulez) renvoie aléatoirement les mots d'une liste. J'ai réussi à le faire grâce à une autre discussion, mais maintenant j'aimerais que les résultats soient uniques sans doublons, je ne sais pas si c'est possible mais voici un PJ abrégé pour vous montrer mon Alea et essayer de le rendre unique.

Merci d'avance à tous
 

Pièces jointes

  • Test Aléa Unique.xlsx
    8.6 KB · Affichages: 14

Lolote83

XLDnaute Barbatruc
Salut ETOTO,
Content de te retrouver.
Une proposition qui teste si un mot est déjà inscrit, la macro en inscrit un autre.
Attention, cela peut tourner sans arrêt car si à chaque fois le nombre choisi aléatoirement est identique, donc même mot, cela peut durer longtemps
@+ Lolote83
 

Pièces jointes

  • Copie de ETOTO - Test Aléa Unique-V1.xlsm
    16.8 KB · Affichages: 5

Dranreb

XLDnaute Barbatruc
Bonjour.
Une version qui utilise ma fonction perso ListeAl.
J'y ai aussi mis ma définition d'objet VBA ListeAléat, à tout hasard, mais ce n'est pas utilisé, là.
 

Pièces jointes

  • ListeAléatEtoto.xlsm
    24.6 KB · Affichages: 5

Dranreb

XLDnaute Barbatruc
Toutes les explications dans ce classeur.

Et pour répondre à la question, le 3ème parametre NRés permet de l'indiquer, mais il est facultatif, et la taille de la plage matricielle est assumée s'il est omis.
 

Pièces jointes

  • ListeAléat.xlsm
    375.1 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
315 096
Messages
2 116 184
Membres
112 678
dernier inscrit
arno12345678