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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #2

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. 🙂

 

Pièces jointes

• ListeAlea.xlsm

  15.9 KB · Affichages: 13

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Février 2020

• #3

Plein d'utilisations de cette sorte dans ce classeur.

 

Pièces jointes

• ListeAléat.xlsm

  265.5 KB · Affichages: 13

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Février 2020

• #4

bonjour

une autre méthode

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

VB:

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

 

Pièces jointes

• ListeAlea Vpat.xlsm

  16 KB · Affichages: 12

Dernière édition: 5 Février 2020

Vote positif 0 Vote négatif

K

Kapel

XLDnaute Nouveau

• 5 Février 2020

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Février 2020

• #6

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Février 2020

• #7

Bonsour®

Kapel à dit:

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...

Cliquez pour agrandir...

sans macro, sans dictionnaire

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

 

Pièces jointes

• Nparmi100.xlsx

  39.6 KB · Affichages: 17

Dernière édition: 6 Février 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #8

Bonsoir,
Ma p'tite contribution.

 

Pièces jointes

• ListeAlea(V2).xlsm

  16.6 KB · Affichages: 17

Vote positif 0 Vote négatif

K

Kapel

XLDnaute Nouveau

• 5 Février 2020

• #9

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 5 Février 2020

• #10

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

 

Pièces jointes

• ListeAléat.xlsm

  345.8 KB · Affichages: 13

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Février 2020

• #11

Bonsour®

Kapel à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2020

• #12

Bonsoir Modeste Guedee, une pierre dans mon jardin ? 🙁

 

Vote positif 0 Vote négatif

Solution

Modeste geedee

XLDnaute Barbatruc

• 5 Février 2020

• #13

Bonsour®

sylvanu à dit:

Bonsoir Modeste Guedee, une pierre dans mon jardin ? 🙁

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif