XL 2019 vba nbre alea sans doublon

[zinessen]

Merci de m'aider sur ce point, à générer un nombre entier par ligne sans que sa fasse des doublons, vu que je suis novice, le bouton génère ligne par ligne, si c'est possible d'effectuer un seul click et générer les 15 cellules par des nombres aléa sans doublons.

 

[Dranreb]

Toute solution utilisant autre chose que le mélange de Fiher-Yates est inutilement compliquée.

 

[M12]

Re M12,
Bizarrement j'ai souvent des doublons avec la PJ du post #2:

Regarde la pièce jointe 1137318

J'ai mis en E votre formule avec seulement Equiv, il semblerait que ce soit le nombre aléatoire en C2 qui est trouvé deux fois car ce nombre se trouve une fois en C2 et une fois dans la liste.
Est ce que je fais une erreur quelque part ? Mais je ne fais qu'exécuter votre macro.
J'ai mis en PJ le fichier tester, c'est exactement le votre à part la colonne E enrichie de Equiv.

Re,
Sauf que la colonne C(Equipes) n'est plus trié de 1 à 15

 

[zinessen]

Utuilisez donc mon objet ListeAléat. Il est extrêmement pratique pour de nombreux algorithmes de tirages pour compétitions, et garantit de n'avoir jamais de doublon car il permuète aléatoirement à l'Init l'ensemble des valeurs possibles demandées.

Mélange de Fisher-Yates — Wikipédia

fr.wikipedia.org

YEP JE CONFIRME

 

[zinessen]

Toute solution utilisant autre chose que le mélange de Fiher-Yates est inutilement compliquée.

help help
j'ai essayé de d'adapter à mon fichier perso sa me sort des erreur comme ceci

 

[Dranreb]

Vous avez simplement oublié d'installer le module de classe ListAléat par glisser/déposer de son nom, dans l'explorateur de projets, vers le projet VBA de votre classeur.