CHAÎNE ALÉATOIRE / RANDOM STRING

Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Messages postés
2
Date d'inscription
lundi 1 février 2010
Statut
Membre
Dernière intervention
31 mai 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51772-chaine-aleatoire-random-string

Messages postés
2
Date d'inscription
lundi 1 février 2010
Statut
Membre
Dernière intervention
31 mai 2010

+1 Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
variables non déclarées ; et code non optimisé...

un peu remodelé :

Public Function RandomString(ByVal vnDesiredLength As Long, Optional ByRef vsChars As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPKRSTUVWXYZ0123456789") As String
Dim nCharCount As Long
Dim i As Long
nCharCount = Len(vsChars)
If vnDesiredLength > 0 And nCharCount > 1 Then
Randomize
RandomString = Space$(vnDesiredLength)
For i = 1 To vnDesiredLength
Mid$(RandomString, i, 1) = Mid$(vsChars, Rnd * nCharCount + 1, 1)
Next
End If
End Function