Générer un code alphanumérique

Jouxte · 9 Juin 2009

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 ?

Cousinhub · 9 Juin 2009

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

Re, le fil

PS, Roger avait mis son lien sur la petite flèche.... (à droite de son nom, dans la citation....)

PS2 : j'ai, moi aussi, mis du temps à le trouver, mais je l'ai trouvé.....

Jouxte, mon code est à mettre dans un module normal

sous VBE, clic droit, Insertion/Module

eriiic · 9 Juin 2009

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

Bonsoir tout le monde,

petite evol du code de bhbh pour gérer plus facilement la liste des caractères autorisés.

Code:

Function alphanum(Nb As Integer) As String
    Const caracteres As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim tmp As String
    For i = 1 To Nb
        Randomize Timer
        tmp = tmp & Mid(caracteres, Len(caracteres) * Rnd + 1, 1)
    Next i
    alphanum = tmp
End Function

eric

edit: au passage, je ne connais pas le but, mais enlever le I et O pour limiter les confusions avec 0 et 1 est parfois interessant.

Générer un code alphanumérique

Jouxte

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Discussions similaires