Générer un code alphanumérique

Jouxte

XLDnaute Occasionnel
Bonjour à tous,

Je souhaite générer un code alphanumérique aléatoire de X caractères.
X étant un nombre entre 4 et 25 suivant les applications.
Quelqu'un aurait-il une idée ?
 

Jouxte

XLDnaute Occasionnel
Re : Générer un code alphanumérique

Bonjour et merci à vous deux de vous pencher sur mon problème.
En fait je souhaiterais créer une formule qui génère complètement au hasard cette suite de caractères alpha numériques.
Cette formule pourrait prendre la forme :
= alealphanum(nombre de caractères,VRAI)
Valeurs fixes (booléen, facultatif) : si VRAI, les valeurs renvoyées restent inchangées à chaque recalcul ; si FAUX (ou omis), ces valeurs sont automatiquement modifiées lors des recalculs (de la même manière que la fonction standard ALEA).

En espérant que ceci puisse vous inspirer.
 

JCGL

XLDnaute Barbatruc
Re : Générer un code alphanumérique

Bonjour à tous,

Ne voulant pas refaire ce qui existe, je recherche, désespérément les codes que Pierre-Jean et Roger2327 avaient commis...

Il me semble qu'ils correspondaient à ce que tu cherches

Je continue...

A+ à tous
 

Cousinhub

XLDnaute Barbatruc
Re : Générer un code alphanumérique

Bonsoir,

Salut, JC :):)

Jouxte, je pense que ta valeur booléenne ne sert à rien....

Le recalcul ne se fait que dans la cellule modifiée, et non dans les autres...

essaie ce code :

Code:
Function alpha(Nb As Integer)
zone = Array("48", "49", "50", "51", "52", "53", "54", "55", "56", "57", _
            "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", _
            "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90")
For i = 1 To Nb
    Randomize Timer
    alpha = alpha & Chr(zone(Int((35 * Rnd))))
Next i
End Function

dans une cellule, tu entres, par exemple :

Code:
=alpha(8)

tu auras un code aléatoire...

maintenant, je sens poindre la question qui tue....

"Et sans doublons, c'est possible?"

Bonne soirée
 

JCGL

XLDnaute Barbatruc
Re : Générer un code alphanumérique

Bonjour à tous,
Bonjour Roger,

Pourrais-tu donner le lien ?

J'ai fait une recherche sur Roger2327 mais infructueuse

A++
A+ à tous

Merci BH² : il fallait la voir la petite flèche
viewpost.gif

 
Dernière édition:

Jouxte

XLDnaute Occasionnel
Re : Générer un code alphanumérique

Bonjour bhbh, Bonjour JCGL, Bonjour Roger 2327, Bonjour Le Forum,

bhbh, Je ne vais pas te tuer car il peut y avoir des doublons, mais par contre j'ai essayé ton code dans ThisWorkbook et le résultat est #NOM?
le code ne fonctionnerait pas pour le classeur ? l'ai-je mal plaçé ?
Roger 2327, je n'ai pas vu le lien pourrais-tu le remettre ?
 

Jouxte

XLDnaute Occasionnel
Re : Générer un code alphanumérique

Re

Dans un module c'est mieux.

Merci beaucoup bhbh, ce code correspond parfaitement à l'usage que je souhaite en faire.

Merci à ceux qui ont travaillé sur ce sujet et qui avaient le souvenir de posts précedents.

Bonne soirée à tous et toutes.
 

Discussions similaires

Réponses
12
Affichages
484
Réponses
2
Affichages
129

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024