XL 2016 Liste de nombres aléatoire sans doublon avec quantité variable

[Kapel]

Bonjour,

Je souhaite créer une liste de nombres aléatoires sans doublons, mais dont la quantité peut varier.
Par exemple, une liste de 45 nombres, puis de 38, puis de 59, etc.
Le but du jeu serait donc qu'en tapant par exemple 45 dans une cellule, 45 nombres s'affichent de manière aléatoire et sans doublons...

Merci de vos réponses

 

[sylvanu]

Bonjour Kapel,
Ci joint un essai.
Il ne peut y avoir de doublons. J'utilise un tableau avec les nombres de 1 à N, et un second avec des nombres aléatoire.
Puis je trie cette matrice aléatoire en nombres croissants en effectuant les même permutations sur la liste des nombres.
Résultat la liste des nombre est rangée de façon aléatoire.

 

[Dranreb]

Plein d'utilisations de cette sorte dans ce classeur.

 

[patricktoulon]

bonjour

une autre méthode

apres avec un dico c'est plus facile a appréhender

Sub Tirage2()
    Dim maxi&, tablo, dico, x, i&
    Randomize
    maxi = 200
    qte = [Quantité]
    Set dico = CreateObject("scripting.dictionary")
    With [Nombres]
        .ClearContents
        tablo = Application.Transpose(.Resize(qte, 1).Value)
        Do: dico(1 + (Round(Rnd * (maxi - 1)))) = "": Loop Until dico.Count = qte
        .Resize(qte, 1).Value = Application.Transpose(dico.keys)
    End With
End Sub

 

[Kapel]

Merci pour vos réponses rapides.
C'est exactement ce que je recherchais. Plutôt novice en la matière je n'ai pas trop compris la méthode mais l'essentiel est là, ça marche.
Question subsidiaire cependant, y a-t-il la possibilité d'afficher les nombres sur 2 colonnes, le nombre maximum étant de 66, une première colonne avec 33 donc et une seconde avec le reste, sachant que les quantités peuvent varier de 20 à 66. Cela permettrait d'avoir une vision totale de tous les nombres sans faire défiler l'écran. J'ai essayé mais dans la seconde colonne le tirage ne s'effectue pas

Bien cordialement

 

[Dranreb]

La 1ère feuille de mon classeur permet de définir la plage matricielle sur deux colonnes.

 

[Modeste geedee]

Bonsour®

Je souhaite créer une liste de nombres aléatoires sans doublons, mais dont la quantité peut varier.
Par exemple, une liste de 45 nombres, puis de 38, puis de 59, etc.
Le but du jeu serait donc qu'en tapant par exemple 45 dans une cellule, 45 nombres s'affichent de manière aléatoire et sans doublons...

sans macro, sans dictionnaire

pour augmenter la quantité au-delà de 100 nombres
étendre les formules en colonnes A et B

 

[sylvanu]

Bonsoir,
Ma p'tite contribution.

 

[Kapel]

Bonsoir Sylvanu

Super... Si je pouvais être aussi doué. Il faudrait que je pratique un peu plus et que j’apprenne à utiliser les macros.
Merci pour la rapidité de votre réponse et bonne soirée

Kapel

 

[Dranreb]

Ajouté un paramètre de remplissage par colonnes à ma fonction ListeAl.

 

[Modeste geedee]

Bonsour®

Super... Si je pouvais être aussi doué. Il faudrait que je pratique un peu plus et que j’apprenne à utiliser les macros.

avant que d'utiliser les macros, apprendre à utiliser les fonctions de base !!!

 

[sylvanu]

Bonsoir Modeste Guedee, une pierre dans mon jardin ?

 

[Modeste geedee]

Bonsour®

Bonsoir Modeste Guedee, une pierre dans mon jardin ?

meuh non ... !
c'est une remarque générale,
si l'on n'utilise pas les fonctionnalités de base (feuille de calculs),

Spoiler: sans macro

https://www.excel-downloads.com/attachments/nparmi100-xlsx.1054002/

aucune consultation !!!
Excel ne se justifie pas d'autre façon alors que pour l'utilisation des graphiques.

d'autres logiciels de programmation sont utilisables et plus performant que VBA