combinaison aléatoire sans doublon

[herve62]

Bonsoir
Après quelques essais non concluant ( en VBA) je fais appel à vous
Comment générer une liste aléatoire entre 1 et 15 style :
5,12,10,11,14,7,6,1,3,13,2,15,4,8,9 donc pas de doublon
En fait pour la suite j'aurais besoin de retrouver cette liste donc j'avais commencé par générer un tableau N(x) dans une Sub , là ça va , ensuite créé une fonction que j'appelle ..... et c'est là que cela ne va plus
Merci à vous

 

[Dranreb]

Bonjour.
Essayez comme ça :

Sub Affiche()
Dim TNo$(1 To 15), J&, K&, No$
For J = 1 To 15: TNo(J) = J: Next J
Randomize
For J = 15 To 2 Step -1
   K = Int(Rnd * N) + 1: No = TNo(K): TNo(K) = TNo(J): TNo(J) = No
   Next J
MsgBox Join(TNo, ", ")
End Sub

 

[herve62]

Re , Bonsoir Dranreb , merci
non ça va pas , ta macro créé toujours la même combi croissante de 2 à 15 et bizarre termine par 1 ??
tu n'as pas testé ton code dans mon fichier ?

 

[Modeste geedee]

Bonsour®

Bonsoir
Après quelques essais non concluant ( en VBA) je fais appel à vous
Comment générer une liste aléatoire entre 1 et 15 style :
5,12,10,11,14,7,6,1,3,13,2,15,4,8,9 donc pas de doublon
En fait pour la suite j'aurais besoin de retrouver cette liste donc j'avais commencé par générer un tableau N(x) dans une Sub , là ça va , ensuite créé une fonction que j'appelle ..... et c'est là que cela ne va plus
Merci à vous

comme ceci peut-être ???

 

[Dranreb]

Zut, je me suis trompé dans un nom de variable c'est plus N mais J
Si j'ai testé mais j'ai ensuite changé les noms et oublié ça.

Sub Affiche()
Dim TNo$(1 To 15), J&, K&, No$
For J = 1 To 15: TNo(J) = J: Next J
Randomize
For J = 15 To 2 Step -1
   K = Int(Rnd * J) + 1: No = TNo(K): TNo(K) = TNo(J): TNo(J) = No
   Next J
MsgBox Join(TNo, ", ")
End Sub

 

[herve62]

J'y suis presque !!!!!!! il ne manque qu'un chiffre car il reste un seul doublon
et je fatigue à trouver !!!!!😡

 

[herve62]

Bon Dranreb on se croise !!!! dans les réponses
oui c'est OK donc je récupère TNo(k) pour la suite ??
Sinon peux tu voir ou ça coince dans mon truc .... ça pourra toujours servir
Merci , bonne soirée

 

[Dranreb]

Quand k est remis à 1 dans doublon, au prochain passage dans la boucle il passe à 2.
Il n'est donc pas détecté si le nouveau propo est égal à no(1) et ce dernier peut donc être retenu une seconde fois. Enfin en gros…
Mais adoptez donc mon système: pour être sûr qu'il n'y a pas de doublon, mettez tous les numéros possibles, une seule fois chacun, puis intervertissez les aléatoirement.