Générer un code alphanumérique

[Jouxte]

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]

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]

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.

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.