Indentification

Fermé

AKH.COVI Messages postés 37 Date d'inscription lundi 14 mars 2016 Statut Membre Dernière intervention 22 février 2018 - 1 avril 2016 à 09:10
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 1 avril 2016 à 17:05

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

Réponse 1 / 2

AKH.COVI Messages postés 37 Date d'inscription lundi 14 mars 2016 Statut Membre Dernière intervention 22 février 2018
1 avril 2016 à 09:14

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

Réponse 2 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 1/04/2016 à 09:46

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

AKH.COVI Messages postés 37 Date d'inscription lundi 14 mars 2016 Statut Membre Dernière intervention 22 février 2018
1 avril 2016 à 10:02

À CommentCaMarche
Merci pour la reponse.
Effectivement le code marche mais seul la ligne 1 et 3 donne un bon resultat.
la ligne 2 prend le mot de passe de le ligne 5 et s'auto incremente a chaque ajout d'utilisateure (+1)
A partir de la ligne 4 toout le reste est correct avec le Mp de la ligne 1.
Merci d'avance

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > AKH.COVI Messages postés 37 Date d'inscription lundi 14 mars 2016 Statut Membre Dernière intervention 22 février 2018
1 avril 2016 à 12:05

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...

AKH.COVI Messages postés 37 Date d'inscription lundi 14 mars 2016 Statut Membre Dernière intervention 22 février 2018
1 avril 2016 à 12:15

https://www.cjoint.com/c/FDbkoLJK7Z5

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

AKH.COVI Messages postés 37 Date d'inscription lundi 14 mars 2016 Statut Membre Dernière intervention 22 février 2018
1 avril 2016 à 16:35

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

Newsletters