Autres Code pour générateur de mot de passe (excel 2007)

[malinsard]

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

 

[xUpsilon]

Bonjour,

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.

Bonne continuation

 

[malinsard]

Un grand merci à toi

 

[patricktoulon]

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)

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