Contrôle de la validité du mot de passe sous VBA MS ACCESS Résolu

Question

Bonjour,

J'aimerais écrire un fonction sous VBA MS Access pour vérifier la validité d'un mot de passe. 

Les conditions sont les suivantes :

- 8 caractères au minimum
- au moins une lettre MAJUSCULE
- au moins une lettre minuscule
- au moins un chiffre
- au moins un  les caractère spécial

Cordialement.

yg_be · Answer

bonsoir, je pense que c'est réalisable.  as-tu une question?

dany · Answer

Bonjour pe59189,

Je te propose ce code VBA :

Option Explicit

Function VérifPW(pw As String) As Boolean
  Const CSP As String * 14 = "#!&%$£µ§()[]{}"
  Dim c1 As String * 1, c2 As Byte
  Dim f1 As Byte, f2 As Byte, f3 As Byte, f4 As Byte
  Dim lng As Byte, i As Byte: lng = Len(pw)
  If lng < 8 Then Exit Function
  For i = 1 To lng
    c1 = Mid$(pw, i, 1): c2 = Asc(c1)
    Select Case c2
      Case 65 To 90: f1 = 1    ' majuscule 'A' à 'Z'
      Case 97 To 122: f2 = 1   ' minuscule 'a' à 'z'
      Case 48 To 57: f3 = 1    ' chiffre '0' à '9'
      Case Else:               ' caractère spécial
        If InStr(CSP, c1) > 0 Then f4 = 1
    End Select
  Next i
  If f1 + f2 + f3 + f4 = 4 Then VérifPW = True
End Function

Sub Essai()
  If Not VérifPW("aBc#e0gh") Then Exit Sub
  MsgBox "Password : ok => faire la suite"
End Sub

&#x26A0;  Tu dois adapter CSP : liste des caractères spéciaux ;
il faut aussi ajuster le « * 14 » selon le nombre de caractères
de CSP ; exemple : si tu ajoute 3 autres caractères spéciaux,
mets les dans la chaîne CSP et : * 17

Merci de me dire si ça te convient.

Cordialement

dany · Answer

Bonjour pe59189,

Je te laisse lire ces 2 messages :

https://forums.commentcamarche.net/forum/affich-34835166-controle-de-la-validite-du-mot-de-passe-sous-vba-ms-access#4

https://forums.commentcamarche.net/forum/affich-34835166-controle-de-la-validite-du-mot-de-passe-sous-vba-ms-access#5

Tu peux aussi séparer le dernier test en 2 :

- au moins une lettre majuscule accentuée
- au moins une lettre minuscule accentuée

Si tu veux plus d'aide, merci d'indiquer la liste complète des
caractères spéciaux que tu utilises ; idem pour les lettres
accentuées.

N'oublie pas de me donner ton avis.

Cordialement

Contrôle de la validité du mot de passe sous VBA MS ACCESS

3 réponses

Discussions similaires

Newsletters