créer 17 000 000 de codes aléatoires et dédoublonnés

[creapoline]

Bonjour,

j'ai un gros dilème ce soir, je dois créer un fichier de 17 000 000 de codes aléatoires (8 chiffres et 1 lettre ex : 12845627A) sous excel 2003.
Et en plus les déboublonner!

est ce possible?

si oui comment faire etant donné que je n'ai que 65 536 ligne sous 2003!

Je réflechis mais je vois aps trop comment faire...merci pour votre aide!

 

[pierrejean]

Re : créer 17 000 000 de codes aléatoires et dédoublonnés

Re

Je n'ai pas eu la même interpretation que Lermiton

En effet il ne me parait pas evident qu'un code a 8 chiffres doive necessairement ne comporter qu'une fois chaque chiffre
Pour moi le code 12233456 me semble valable
dans ce cas, pas besoin de math sup pour avoir le nbre de codes possible soit
2,6 milliards = 26 * 100 000 000
Je crois d'ailleurs qu'Odesta 🙂 l'a évoqué

 

[ROGER2327]

Re : créer 17 000 000 de codes aléatoires et dédoublonnés

Re...

Re

Je n'ai pas eu la même interpretation que Lermiton

En effet il ne me parait pas evident qu'un code a 8 chiffres doive necessairement ne comporter qu'une fois chaque chiffre
Pour moi le code 12233456 me semble valable
dans ce cas, pas besoin de math sup pour avoir le nbre de codes possible soit
2,6 milliards = 26 * 100 000 000
Je crois d'ailleurs qu'Odesta 🙂 l'a évoqué

Même point de vue pour moi.

Mais pour l'instant, mon problème est ailleurs. Votre proposition (celle qui tourne en douze minutes et des poussières) est très lente chez moi : en un peu plus d'une heure et demie, j'ai obtenu une trentaine de colonnes. Les calculs sont rapides, mais les transferts vers la feuille très lents. Il me semble que c'est un problème que nous avons déjà rencontré avec Excel2003.
Mais je reviendrai plus tard dans cette discussion. Pour l'instant, en route pour la manif !

Bon après-midi,
​

ROGER2327
#4294

Samedi 7 Haha 138 (Saint Prout, abbé, SQ)
21 Vendémiaire An CCXIX
2010-W41-2T11:45:28Z

 

[Lermiton]

Re : créer 17 000 000 de codes aléatoires et dédoublonnés

Re, pierrejean

Ta réponse de 12h11 me donne à réfléchir...

Je suis d'accord sur la validité du code "12233456". Et je commence à me demander si la formule des "arrangements" mathématiques que j'ai utilisée prend en compte le cas où les "p" éléments comprennent plusieurs fois le même élément.

Si ce n'est pas le cas, les codes "11111111A" et "12233456A" ne sont pas inclus dans le nombre maximum donné par mon calcul.
Et alors tu as raison ...
Et alors j'ai écris une bêtise en disant que, par définition un arrangement est SANS répétition ...
Et alors je dois d'humbles excuses à Odesta ...

Je n'ai pas révisé sérieusement mes maths avant d'écrire des bêtises ... Faute avouée est-elle au moins a demi pardonnée ?

Au fait, il ne me semble pas avoir lu que Creapoline ait tiré profit des solutions proposées : le concours aurait-il été clos trop tôt ? Dommage, la solution de ton fichier "creapoline.xls" tourne vite et bien, et je la conserve précieusement comme exemple !

Bonne journée.

 

[pierrejean]

Re : créer 17 000 000 de codes aléatoires et dédoublonnés

Re

@ ROGER
Arf
Me voila enfin avec une bonne raison d'avoir investi dans EXCEL 2007 upgradable en 2010
testé avec 2000 (que je crois avoir eu la sagesse de conserver) ma proposition
Je n'ai obtenu que 29 colonnes en un peu moins d'une heure

@ Lermiton
Que celui qui n'a jamais eu d'interpretation excessive commence la lapidation , ce ne sera pas moi

 

[suistrop]

Re : créer 17 000 000 de codes aléatoires et dédoublonnés

Salut à tous,
Juste pour le fun :
Ca crée des code aléatoires sans doublons, je n arrive pas a ajouter la lettre sans que ca bug, je ne sais pas le temps que ca peut mettre a afficher sur 1 feuilles 🙂, il faudrais parcourir tout le tableau... have fun !!

Sub aleatoire()
Dim tab_rdm(0 To 9, 0 To 9, 0 To 9, 0 To 9, 0 To 9, 0 To 9, 0 To 9, 0 To 9) As Byte
Do
N1 = Int(Rnd() * 10)
N2 = Int(Rnd() * 10)
N3 = Int(Rnd() * 10)
N4 = Int(Rnd() * 10)
N5 = Int(Rnd() * 10)
N6 = Int(Rnd() * 10)
N7 = Int(Rnd() * 10)
N8 = Int(Rnd() * 10)
N9 = Int(Rnd() * 10)
If tab_rdm(N1, N2, N3, N4, N5, N6, N7, N8) <> 1 Then
    tab_rdm(N1, N2, N3, N4, N5, N6, N7, N8) = 1
    cpt = cpt + 1
End If
Loop While cpt < 17000000
t = 1
End Sub