Indentification

[Fermé]
Signaler
Messages postés
37
Date d'inscription
lundi 14 mars 2016
Statut
Membre
Dernière intervention
22 février 2018
-
Messages postés
15979
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 septembre 2021
-
Bonjour,
J'ai créer un UserForm pour avoir accès a ma feuille d'enregistrement. le classeur comprend une feuille servant de Base de Donnée pour vérifier les ID et Password
Mais mon souci est que quand il fait la recherche, malgré que certain sont déjà enregistrer il me donne mon msgbox "Mot de passe incorrect".
Mais j'ai finalement remarqué que il saute une ligne dans les recherches.
Merci d'avance

Voici le code

Private Sub btnOK_Click()
Dim ID As String, Pssword As String, Plage As Range, Mp As String, Nom As String

ID = f_open.txtUser.Value
Pssword = f_open.txtPwd.Value
Set Plage = ActiveWorkbook.Sheets("CONNEXION").Columns("A:C")
Mp = Application.VLookup(ID, Plage, 2)
Nom = Application.VLookup(ID, Plage, 3)

If ID = "" Then
MsgBox "Opérateur obligatoire !"
f_open.txtUser.SetFocus
Exit Sub
End If
If Pssword = "" Then
MsgBox "Mot de passe obligatoire !"
f_open.txtPwd.SetFocus
Exit Sub
End If

If Pssword = Mp Then
f_open.Hide
Unload f_open
MsgBox "Bienvenue " & Nom & " !"
Else
MsgBox "Mot de passe incorrect", vbExclamation
f_open.txtPwd.SetFocus
Exit Sub
End If
End Sub

2 réponses

Messages postés
37
Date d'inscription
lundi 14 mars 2016
Statut
Membre
Dernière intervention
22 février 2018

Excusez moi j'avais pas indenté
Private Sub btnOK_Click() 
Dim ID As String, Pssword As String, Plage As Range, Mp As String, Nom As String 

ID = f_open.txtUser.Value 
Pssword = f_open.txtPwd.Value 
Set Plage = ActiveWorkbook.Sheets("CONNEXION").Columns("A:C") 
Mp = Application.VLookup(ID, Plage, 2) 
Nom = Application.VLookup(ID, Plage, 3) 

If ID = "" Then 
MsgBox "Opérateur obligatoire !" 
f_open.txtUser.SetFocus 
Exit Sub 
End If 
If Pssword = "" Then 
MsgBox "Mot de passe obligatoire !" 
f_open.txtPwd.SetFocus 
Exit Sub 
End If 

If Pssword = Mp Then 
f_open.Hide 
Unload f_open 
MsgBox "Bienvenue " & Nom & " !" 
Else 
MsgBox "Mot de passe incorrect", vbExclamation 
f_open.txtPwd.SetFocus 
Exit Sub 
End If 
End Sub
Messages postés
15979
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 septembre 2021
1 535
Bonjour,

j'ai teste votre code et il marche!!!!

mettez un point d'arret a cette ligne

If Pssword = Mp Then

lancez l'UF et choisissez un ID ou vous avez eu pw incorrect

quand le programme s'arrete, passez le curseur souris sur les variables de la ligne pour voir leur contenu
Messages postés
15979
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 septembre 2021
1 535 >
Messages postés
37
Date d'inscription
lundi 14 mars 2016
Statut
Membre
Dernière intervention
22 février 2018

Re,

Vous pouvez faire un fichier exemple avec votre code et des donnees factices mais coherentes

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDEBTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Messages postés
37
Date d'inscription
lundi 14 mars 2016
Statut
Membre
Dernière intervention
22 février 2018

Messages postés
15979
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 septembre 2021
1 535 >
Messages postés
37
Date d'inscription
lundi 14 mars 2016
Statut
Membre
Dernière intervention
22 février 2018

Bonjour,

votre probleme vient de la colonne ID qui n'est pas triee en ordre croissant

Soit vous faites un tri, soit vous changez de code pour la recherche
Messages postés
37
Date d'inscription
lundi 14 mars 2016
Statut
Membre
Dernière intervention
22 février 2018

Bien vu en tout cas Merci beaucoup.
Apres tri par ordre croissant cela marche à merveille.
Mais j'aimerais savoir comment contourner c'est à dire changer le code pour eviter le tri à chaque fois, parce que j'ai un autre UserForm qui renseingne la feuille(CONNEXION). ce qui faussera encore le tri.
Merci
Messages postés
15979
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 septembre 2021
1 535 >
Messages postés
37
Date d'inscription
lundi 14 mars 2016
Statut
Membre
Dernière intervention
22 février 2018

Re

j'avais anticipe votre demande: https://www.cjoint.com/c/FDbpfhpBVBf