XL pour MAC Codes à 6 chiffres sans doublons

Artchi29 · 6 Juillet 2020

Bonjour,

Je cherche un moyen de créer une liste de 240 000 codes uniques à 6 chiffres. Les codes pouvant être composés de chiffres allant de 1 à 9.

Le but étant de mettre en place un jeu avec des codes gagnants. Aucun doublon n'est donc possible. Si vous avez des solutions je suis preneur.

Merci beaucoup,

Arthur

mapomme · 6 Juillet 2020

_Thierry à dit:
Encore plus rapide,

Moi, je ne revendiquerai jamais d'avoir la plus courte ni d'être le plus rapide

Bon , je sors...

patricktoulon · 6 Juillet 2020

_Thierry · 6 Juillet 2020

Donc moi j'ai la plus longue avec le Post #5
(pourtant 13 c'est très moyen !!!)

patricktoulon · 6 Juillet 2020

patricktoulon · 6 Juillet 2020

erreur corrigée
round devait arrondir au superieur

VB:

Function getSerie(nb&, maxChiffre&, Optional desordre As Boolean = False)
    Dim i&, c&, x&, z&, q&, valoche&
  ReDim tbl(1 To nb, 1 To 1)
    x = Val(Mid("111111111111111", 1, Abs(maxChiffre&)))
    z = Val(Mid("999999999999999", 1, Abs(maxChiffre&)))
    'q = Round((z - x) / nb, 0) : q = IIf(q < 1, 1, q)
     q = Int((z - x) / nb): q = IIf(q < 1, 1, q)
 
    For i = 1 To nb
        x = x + Abs(q)
        tbl(i, 1) = x
    Next
    If desordre Then
        For i = 1 To nb / 2
            x = 1 + (Round((Rnd * (nb - 1))))
            valoche = tbl(x, 1): tbl(x, 1) = tbl(i, 1): tbl(i, 1) = valoche
        Next
    End If
    getSerie = tbl
End Function

_Thierry · 6 Juillet 2020

Bravissimo Pat , tu as la plus petite et rapide et avec six digits en prime et toujours sans double entrées !!!
(Euh digits c'est pas doigts en français !!! Arf

)

Bon allez bonne soirée/nuit !
@+Thierry

mapomme · 6 Juillet 2020

@patricktoulon ,

Deux petits points :

Le demandeur ne veut pas de zéro dans les nombres de la liste.
Ta méthode supprime l'aléatoire puisque chaque tirage comporte les mêmes nombres (dans un ordre différent certes)

_Thierry · 6 Juillet 2020

mapomme à dit:
Le demandeur ne veut pas de zéro dans les nombres de la liste.

Arf oui c'est vrai !

Artchi29 à dit:
Les codes pouvant être composés de chiffres allant de 1 à 9.

Pour le second point, il n'a pas précisé, je crois... Mais d'ailleurs il est passé où cet
Artchi29 ?

Bonne Nuit
@+Thierry

patricktoulon · 6 Juillet 2020

mapomme à dit:
@patricktoulon ,

Le demandeur ne veut pas de zéro dans les nombres de la liste.
Ta méthode supprime l'aléatoire puisque chaque tirage comporte les mêmes nombres (dans un ordre différent)

re
bonsoir mapomme
l'alea dépend du nombre d'items et de la distance entre le min et le max
en l’occurrence ici 240000 items avec la distance de 100000 à 999999 donne 3
j'arrondi bien sur c'est 3 et des brouettes en fait
je suis curieux
si j’enlève tout les nombres avec les zero combien de possibilité me reste t il
-1 pour unité
-9 pour dizaine
-9 pour centaine
-9 pour millier
etc...etc..
et chaque -9 puissance les autres -9
ca en fait un paquet à enlever

mapomme · 6 Juillet 2020

patricktoulon à dit:
'alea dépend du nombre d'items et de la distance entre le min et le max

Je suis d'accord mais pour le même triplet (min, max, nombre à tirer), les nombres tirés seront les mêmes à chaque exécution.
Il faudrait à chaque exécution, prendre au hasard le premier nombre entre 111111 et 111111+q ???

mapomme · 6 Juillet 2020

patricktoulon à dit:
je suis curieux
si j’enlève tout les nombres avec les zero combien de possibilité me reste t il

il y a 9^6 soit 531 441 nombres de six chiffres sans 0.

patricktoulon · 6 Juillet 2020

mapomme à dit:
Je suis d'accord mais pour le même triplet (min, max, nombre à tirer), les nombres tirés seront les mêmes à chaque exécution.
Il faudrait à chaque exécution, prendre au hasard le premier nombre entre 111111 et 111111+q ???

quelle importance ??? le désordre est opéré ensuite

seul les 3 111111+q -1 de ces 3 premiers serait manquants

avec un step de 3 max pour 240000(items/valeurs) on a pas vraiment beaucoup de possibilités

presque utiliser une des fonctions alea,rnd random etc.. est superflu
je dis bien presque
dans ma version on peut mettre le q(step) en alea si tu veux (de 1 a 3) a chaque tour
mais c'est tout

mapomme · 6 Juillet 2020

Re,

patricktoulon à dit:
dans ma version on peut mettre le q(step) en alea si tu veux (de 1 a 3) a chaque tour

Oui mais si on tire un nombre supérieur à la moitié des nombres possibles, on aura q=1 et on sortira toujours les mêmes nombres (qui se suivront d'ailleurs). D'un autre côté, le demandeur n'a pas parlé de nombre aléatoire .

Allez il est temps de se coucher, le demandeur a suffisamment le choix et nous, nous allons faire de beaux rêves de quinté gagnant, de numéro de loto gagnant ...

Bonnet de nuit

patricktoulon · 6 Juillet 2020

re
le départ est aléatoire
le step est aléatoire

VB:

Sub textx()
   Dim Serie
   Serie = getSerie(240000, 6, False) 'mettre true pour desordre
    Cells(1, 1).Resize(240000, 1).Value = Serie
End Sub
Function getSerie(nb&, maxChiffre&, Optional desordre As Boolean = False)
    Dim i&, c&, x&, z&, q&, valoche&
  ReDim tbl(1 To nb, 1 To 1)
    x = Val(Mid("111111111111111", 1, Abs(maxChiffre&)))
    z = Val(Mid("999999999999999", 1, Abs(maxChiffre&)))
    q = Round((z - x) / nb, 0): q = IIf(q < 1, 1, q)
    x = x + Int(Rnd * Abs(q))
    For i = 1 To nb - 1
        x = x + 1 + (Abs(Rnd * (q - 1)))
        If x Mod 10 = 0 Then x = x + 1 'remplace  les sortants mod 10
        If x Mod 100 = 0 Then x = x + 1 'remplace  les sortants mod 100
      
       tbl(i, 1) = x
    Next
    If desordre Then
        For i = 1 To nb / 2
            x = Round(1 + (Rnd * nb - 1))
            valoche = tbl(x, 1): tbl(x, 1) = tbl(i, 1): tbl(i, 1) = valoche
        Next
    End If
    getSerie = tbl
End Function

patricktoulon · 7 Juillet 2020

et j'en ai trouvé une encore plus simple sans zero je testerais demain si mon idée est viable

XL pour MAC Codes à 6 chiffres sans doublons

Artchi29

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires