Bonjour à tous, je sais que le sujet à déjà été aborder mais voilà. J'avais un générateur de mot de passe que je ne retrouve plus avec des chiffres des lettres maj ou min et des symbole quelqu'un aurait-il un bout de code pour en refaire un .
Merci de votre aide
Sub code_aleatoire()
Randomize
carac = "ABCD1234"
code_alea = ""
For i = 1 To 10 '10 = longueur du code
nombre_aleatoire = Int(Len(carac) * Rnd) + 1
code_alea = code_alea & Mid(carac, nombre_aleatoire, 1)
Next
MsgBox code_alea
End Sub
Voici un exemple, tu rentres dans carac tous les caractères que tu accepterais dans ton mdp puis tu choisis i de 1 à x avec x étant le nombre de caractères que tu souhaites dans ton code.
bonsoir
sinon une chaîne aléatoire sans caractère en doublons les caractères maj et min et numérique ainsi que les spéciaux
de chr( 47 )à chr(122)
VB:
Function AleaChaine(x As Long)
For i = 1 To x
re:
Randomize
char = ChrW(47 + (Rnd * 75))
If Not char = "[" Then If Not t Like char And Not char = vbCrLf Then t = t & char Else GoTo re
Next
AleaChaine = t
End Function
Sub test2()
MsgBox AleaChaine(20)
End Sub