Chaîne aléatoire / random string

Commenter

Contenu du snippet

Voila une petite fonction pour avoir une chaîne de caractère aléatoire composer de lettres(maj , min) et de nombres , vous pouvez bien sur ajouter des caractères si bien simple .

Source / Exemple : 


Public Function rAndom(Strlong As Integer) As String
'Usage : rAndom(15) => 64cR7nrR8r8uxGf
Randomize
Dim tbl() As String 'le tableau des caracteres
Dim strx As String 'la chaine qu'on va créer
tbl = Split("a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,K,R,S,T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9", ",") 'Vous pouvez ajouter/suppr des caracteres .
For I = 1 To Strlong
strx = strx & tbl(Int((UBound(tbl) + 1) * Rnd))
Next I
rAndom = strx
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.