Discussion :

[ALINE85]

Bonjour,
J'aimerais savoir s'il existe une formule dans Excel qui permette de générer des mots de passe.
En effet, j'ai une liste de 6000 clients auquels je souhaite attribuer un mdp.
J'aimerais que ce mdp contient 5 caractères au minimum, mélangé de chiffres et lettres.
Exemple : H7A8G

Est-ce que quelqu'un peut m'aider ?

Cordialement.

[Lou Pitchoun]

Salut,

Une fonction trouvée ici mais je ne sais plus où

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub Genere_Password()
 
    Dim t As Variant
    Dim i As Integer
    Dim index As Integer
    Dim Pwd As String
 
    t = Array("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", "q", "r", "s", "t", "u", "v", "w", "x", _
        "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
 
    Pwd = "" 'Initialise la chaine
 
    For i = 1 To 20
        index = Int(62 * Rnd) ' génère un indice entre 0 et 61 pour le tableau
        Pwd = Pwd & t(index) ' Ajoute le caractère à la chaine
    Next i
    Debug.Print Pwd
 
End Sub

Change le 20 pour avoir la longueur du mot que tu souhaites avoir.

[ALINE85]

J'ai fait un copier/coller de cette fonction dans le module macro.
La macro "Genere_Password" est bien créée.
Mais quand je fais "Exécuter", rien ne se passe.
Mes paramètres sont bien à : "Activer toutes les macros (non recommandé ; risque d'exécution de code potentiellement dangereux)"

J'avoue ne jamais me servir des macros.
Et j'ai encore besoin de vous.

[Lou Pitchoun]

Pour voir le résultat de la fonction, affiche la fenêtre de débogage (ou fenêtre d'exécution)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Pwd

Pour utiliser la fonction dans une autre procédure/fonction et retourner une valeur, modifie la fonction comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub Genere_Password() As String

et à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Pwd

tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Genere_Password = Pwd

[ALINE85]

J'obtiens un message d'erreur. Fichier joint.

[Invité]

Bonjour

Ce n'est pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub

C'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Public Function

[Lou Pitchoun]

Bonjour

Ce n'est pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Sub

C'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Public Function

[SilkyRoad]

bonsoir

un exemple par formule (appuye sur la touche clavier F9 pour générer un nouveau code aléatoire):

=SI(ALEA()>0,5;CAR(ENT(ALEA()*10+1)+47);CAR(ENT(ALEA()*26+1)+64))&SI(ALEA()>0,5;CAR(ENT(ALEA()*10+1)+47);CAR(ENT(ALEA()*26+1)+64))&SI(ALEA()>0,5;CAR(ENT(ALEA()*10+1)+47);CAR(ENT(ALEA()*26+1)+64))&SI(ALEA()>0,5;CAR(ENT(ALEA()*10+1)+47);CAR(ENT(ALEA()*26+1)+64))&SI(ALEA()>0,5;CAR(ENT(ALEA()*10+1)+47);CAR(ENT(ALEA()*26+1)+64))

bonne soirée
michel

[Invité]

Silkyroad

[tibo59]

Bonjour,

Histoire d'accompagner Michel (dont j'apprécie et estime les interventions) dans ses délires formulistiques, j'en ajoute un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CHOISIR(ALEA()*2+1;CAR(64+ALEA()*26+1);CAR(47+ALEA()*10+1))&CHOISIR(ALEA()*2+1;CAR(64+ALEA()*26+1);CAR(47+ALEA()*10+1))&CHOISIR(ALEA()*2+1;CAR(64+ALEA()*26+1);CAR(47+ALEA()*10+1))&CHOISIR(ALEA()*2+1;CAR(64+ALEA()*26+1);CAR(47+ALEA()*10+1))&CHOISIR(ALEA()*2+1;CAR(64+ALEA()*26+1);CAR(47+ALEA()*10+1))

Bonne journée à tous

@+

[ALINE85]

Eh bien ça c'est de la formule.
Maintenant, je ne sais pas laquelle choisir entre "SilkyRoad - Michel" et "Tibo59" puisque les 2 fonctionnent à merveille.

Un grand MERCI en tout cas à tous de m'avoir apporté votre aide.

A bientôt.
Aline