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 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 1 avril 2016 à 17:05
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 1 avril 2016 à 17:05
2 réponses
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
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
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
Modifié par f894009 le 1/04/2016 à 09:46
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
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
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
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
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
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...
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
1 avril 2016 à 12:15
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
>
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 à 14:24
1 avril 2016 à 14:24
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
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
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
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