Login et mot de passe
Guillaume
-
Heliotte Messages postés 1561 Statut Membre -
Heliotte Messages postés 1561 Statut Membre -
Bonjour,
J'ai 2 colonnes id et mdp comme ceci :
id mdp
aa bb
cc dd
ee ff
gg hh
Ensuite dans une userform l'utilisateur doit entre l'id et le mot de passe et pour pouvoir se connecter il faut dans la textbox id : aa ET dans la textbox mdp : bb
ou id : cc ET mdp : dd etc...
j'ai essayé de coder ça sans succès si vous pouviez m'aider je vous en serait reconnaissant :)
voici mon code pour l'instant :
Private Sub btn_entrer_Click()
Application.ScreenUpdating = False
Dim erreur As Boolean
Sheets("login_mdp").Select
Range("A1").Select
Do
erreur = True
If ActiveCell.Value = txt_id.Value And ActiveCell.Offset(0, 1).Value = txt_mdp.Value Then
erreur = False
Unload Me
MenuPrincipal.Show
End If
ActiveCell.Offset(1, 0).Select
Loop Until erreur = True
Application.ScreenUpdating = True
End Sub
J'ai 2 colonnes id et mdp comme ceci :
id mdp
aa bb
cc dd
ee ff
gg hh
Ensuite dans une userform l'utilisateur doit entre l'id et le mot de passe et pour pouvoir se connecter il faut dans la textbox id : aa ET dans la textbox mdp : bb
ou id : cc ET mdp : dd etc...
j'ai essayé de coder ça sans succès si vous pouviez m'aider je vous en serait reconnaissant :)
voici mon code pour l'instant :
Private Sub btn_entrer_Click()
Application.ScreenUpdating = False
Dim erreur As Boolean
Sheets("login_mdp").Select
Range("A1").Select
Do
erreur = True
If ActiveCell.Value = txt_id.Value And ActiveCell.Offset(0, 1).Value = txt_mdp.Value Then
erreur = False
Unload Me
MenuPrincipal.Show
End If
ActiveCell.Offset(1, 0).Select
Loop Until erreur = True
Application.ScreenUpdating = True
End Sub
A voir également:
- Login et mot de passe
- Trousseau mot de passe iphone - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
- Identifiant et mot de passe - Guide
- Mot de passe compromis - Guide
2 réponses
Bonsoir Guillaume,
Quand vous que cela ne fonctionne pas, en fait cela fonctionne si le login est "aa" et le mot de passe est "bb" .. c'est ça ?
Quand vous que cela ne fonctionne pas, en fait cela fonctionne si le login est "aa" et le mot de passe est "bb" .. c'est ça ?
Voilà comment procéder:
Bonne programmation !
Option Explicit
Private Sub btn_entrer_Click()
Dim DerLig As Long, i As Integer, erreur As Boolean
'
DerLig = Range("A" & Rows.Count).End(xlUp).Row
'
Sheets("login_mdp").Select
erreur = True
For i = 1 To DerLig
If Cells(i, 1).Value = txt_id.Value And Cells(i, 2).Value = txt_mdp.Value Then
erreur = False: i = (DerLig + 1)
End If
Next i
If (erreur) Then
MsgBox "Vos login et password sont INCORRECT !", vbInformation, "vérification !"
Else
Unload Me
MenuPrincipal.Show
MsgBox "Vos login et password sont correct !", vbInformation, "vérification !"
End If
End Sub
Bonne programmation !
En mettant aa et bb ça devrait fonctionner pourtant ...