Vérifier si le mot de passe correspond au User

Bonjour à tous,

Je contacte les experts car je rame un peu sur un sujet VBA.

Je m'explique. Je viens de créer une Userform ou la personne doit rentrer son mot de passe pour valider sa signature. Cependant je n'arrive pas à rédiger la macro pour vérifier la correspondance entre le mot de passe et le user

J'ai une feuille qui s'appelle liste, ou dans la première colonne j'ai les users, et dans la 2e colonne les mot de passe qui correspondent. Pouvez-vous m'aider pour trouver comment comparer ces 2 éléments ?

Vous pouvez trouver le fichier ci-joint si cela peut vous aider à m'aider

Bonjour,

à tester,

user = Application.Index(Sheets("liste").Range("A1:A100"), Application.Match(Me.TextBox1, Sheets("liste").Range("B1:B100"), 0))
If user = Application.UserName Then

Bonjour,

Merci pour votre réponse mais lorsque je l'intègre à mon code (avec adaptation cela ne fonctionne pas).

Private Sub CommandButton2_Click()

Dim ProjectManager As String
Dim password As String

ProjectManager = ActiveSheet.Range("G5").Value
password = WorksheetFunction.VLookup(ProjectManager, Sheets("liste").Range("A1:B100"), 2, False)
'Le Project Maanger va entrer son mot de passe dans TextBox1 pour info

ProjectManager = Application.Index(Sheets("liste").Range("A1:A100"), Application.Match(Me.TextBox1, Sheets("liste").Range("B1:B100"), 0))
If ProjectManager = Application.UserName Then

MsgBox ("Projet signé")

End If

End Sub

C'est bon, j'ai trouvé une solution qui me convient !

Bonjour Max-57, i20100, le forum,

Une autre proposition à tester....

Private Sub CommandButton2_Click()
 Dim ProjectManager As String
 Dim password As String, mdp As String
 Dim PMligne As Integer
 Dim PMcolonne As Integer
 Dim tab1 As Range

      Set tab1 = Sheets("liste").ListObjects("Manager").DataBodyRange
ProjectManager = Sheets("Sheet1").Range("G5").Value
           mdp = Application.WorksheetFunction.VLookup(ProjectManager, tab1, 2, False)
      password = TextBox1

If password <> mdp Then
 MsgBox "Mot de passe erroné"
 TextBox1 = "": TextBox1.SetFocus
Else
 MsgBox "Mot de passe OK"
 Unload Me
 Unload Signatures
End If

End Sub

Cordialement,

tu as utilisé "ProjectManager" comme variable de type string,

mais tu as aussi nommé ton UserForm avec le même nom.

qu'est ce que l'utilisateur doit inscrire dans le TexBox1 du UserForm ProjectManager

le mot de passe ?

aussi dans la même macro il y a la ligne

ProjectManager = ActiveSheet.Range("G5").Value