Générateur de mot de passe

Bonjour,

Je suis actuellement en train de réaliser un générateur de mot de passe sous excel...

Mon code avance bien mais la je suis sur un OS

je laisse le choix à l'utilisateur à l'aide de checkbox

• nombre
• minuscule
• majuscule
• simple carac "&-@_"
• tout les caratères

me seule problème c'est que quad je lui demande juste des "simple carac" il bug complètement

j'ai pourtant épluché le code de long en large mais impossible de trouver...

Si vous des idées de résolution c'est avec plaisir

Bonne fêtes

Cordialement

Yannkee

Bonjour,

Corrige la ligne 1.

Si ça ne suffit pas passer à la ligne 2 etc

eric

Autant pour moi il y avait un faute de frappe

je vous joint le fichier qui marche si jamais

merci

a bientôt

Bonsoir

Tu n’as pas dit qui a écrit le code, toi ou une autre personne

Essayer ca

Option Explicit
Option Base 1
Sub gene()
Dim lg_pwd As Byte, gene_tab, gene_carac As Integer, i As Byte, x As Byte
Dim tabmunis, tabmajus, tabnum, taball, tmps, mdp As String, tabcarac
 Dim ws1 As Worksheet
 Set ws1 = ThisWorkbook.Worksheets("Feuil1")
tabnum = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)
tabmajus = Array("A", "Z", "E", "R", "T", "Y", "U", "I", "O", "P", "Q", "S", "D", "F", "G", "H", "J", "K", "L", "M", "W", "X", "C", "V", "B", "N")
tabmunis = Array("a", "z", "e", "r", "t", "y", "u", "i", "o", "p", "q", "s", "d", "f", "g", "h", "j", "k", "l", "m", "w", "x", "c", "v", "b", "n")
tabcarac = Array("%", "$", "!", "?", "£")
lg_pwd = ws1.Range("D6").Value
x = 0
 ReDim taball(4)
  If Feuil1.CheckBox_num = True Then x = x + 1: taball(x) = tabnum
  If Feuil1.CheckBox_min = True Then x = x + 1: taball(x) = tabmunis
  If Feuil1.CheckBox_maj = True Then x = x + 1: taball(x) = tabmajus
  If Feuil1.CheckBox_carac = True Then x = x + 1: taball(x) = tabcarac 
 If x = 0 Then Exit Sub Else ReDim Preserve taball(x)
    For i = 1 To lg_pwd
    Randomize
    gene_tab = Int((UBound(taball) - 1 + 1) * Rnd + 1)
    tmps = taball(gene_tab)
    Randomize
    gene_carac = Int((UBound(tmps) - 1 + 1) * Rnd + 1)
    mdp = mdp & tmps(gene_carac)
    Next       
MsgBox mdp

End Sub

Tu peux ajouter autres tableaux de caractères déférents

Autre paramètres sont possibles comme :

La réplétion de deux mêmes caractères (qui succèdent ou non).

Le tirage avec remise ou non

Ce code fait le tirage avec remise et ne prends aucun paramètre

Je pose une question à mon tour

Est-ce l utilisation de « Randomize « deux fois dans une boucle est conseillé(en espérant qu’un expert passe par la)