Discussion :

[AlfiQue]

Je cherche à réaliser une connexion par mot de passe avec une correspondance entre le login et le mot de passe !

J'ai une feuille avec un combobox (pour le choix des utilisateurs), un textbox (pour le mot de passe) et un bouton pour validé !

Les utilisateurs et les mots de passes sont enregistrés dans une feuille Excel.
J'arrive à me connecter à la feuille excel et valider le premier mot de passe, mais pas à faire la recherche du mot de passe par rapport à l'utilsateur !

Si quelqu'un peut me donner un coup de main

merci

[Megaxel]

Alors.... En supposant que tu aies dans une colonne les logins, et dans la colonne d'à côté, les mots de passe, voici une fonction qui te retourne le mot de passe si tu lui passe le login en paramètre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Function TrouveMotDePasse(ByVal MonLogin As String) As String
    Dim MaCellule As Range
    Set MaCellule = ActiveWorkbook.Worksheets(2).Cells.Find(MonLogin, LookIn:=xlValues)
    If Not MaCellule Is Nothing Then
        TrouveMotDePasse = MaCellule.Offset(0, 1).Value
    Else
        TrouveMotDePasse = "Login incorrect"
    End If
End Function

Ensuite, lors de ta phase de login, tu n'as plus qu'à comparer ce que contient le textbox rempli par la personne qui veut se connecter au retour de la fonction. Si les deux sont égaux, c'est Ok, sinon, c'est pas bon.
Maintenant, je ne sais pas si, au niveau sécurité, tu auras quelquechose d'infranchissable...

[SfJ5Rpw8]

on manque un peu d'infos... en suppossant que tu est les noms d'utilisateur dans colonne A2.... et mot de passe correspondant en B2...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ComboBox1_Change()
 
MsgBox Range("B2").Offset(ComboBox1.ListIndex)
 
End Sub

[AlfiQue]

déjà merci pour vos réponses

je vous donne un petit exemple du tableau



donc dans la colonne de gauche les utilisateurs et à droite les mots de passes, différent pour chaque utilisateur !

Pour corser un peu le Tout, c'est mon premier gros programme sous visual basic avec base excel, et donc je suis vraiment perdu, je comprend pas trop comment utiliser la fonction de Megaxel et même celle de bbil

merci pour votre aide

[SfJ5Rpw8]

J'ai une feuille avec un combobox (pour le choix des utilisateurs), un textbox (pour le mot de passe) et un bouton pour validé !

Ton combobox , text box et bouton valider , sont sur une feuille excel ou sur une UserForm ?

[SfJ5Rpw8]

Rajoute se code dans UserForm...
avec ComboBox1 = La combo de choix du nom
TextBox1 = La Zone saisie mot de passe
CommandButton1 : le bouton valider...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'
' Fonction ComboBox1_Change.. pour debug à detruire ensuite
' Affiche le mot de passe
Private Sub ComboBox1_Change()
MsgBox Range("B1").Offset(ComboBox1.ListIndex, 0)
End Sub
 
Private Sub CommandButton1_Click()
 If ComboBox1.ListIndex >= 0 Then
    If Range("B1").Offset(ComboBox1.ListIndex, 0) = TextBox1 Then
     MsgBox ("Mot de passe OK")
     Else
     MsgBox ("Errur mot de passe")
    End If
 End If
End Sub
 
Private Sub UserForm_Initialize()
Dim r As Range
 Set r = Range("A1").CurrentRegion
 ComboBox1.Clear
 For i = 1 To r.Rows.Count
  ComboBox1.AddItem r.Cells(i, 1)
 Next
End Sub

[AlfiQue]

J'ai une feuille avec un combobox (pour le choix des utilisateurs), un textbox (pour le mot de passe) et un bouton pour validé !

Ton combobox , text box et bouton valider , sont sur une feuille excel ou sur une UserForm ?

non je suis sous visual basic

[AlfiQue]

voilà sa marche merci

j'ai juste un autre problème :

Comment tu place le code de fermeture excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
        wbexcel.Close
        appexcel.Quit
        Set wsexcel = Nothing
        Set wbexcel = Nothing
        Set appexcel = Nothing

pour que excel soit quitter quand la fenêtre ce ferme ?

[SfJ5Rpw8]

ben dans la procedure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Private Sub Form_Terminate()
...

[AlfiQue]

oui c'est ce que j'ai fait mais excel reste en mémoire

[bidou]

Tu dois avoir une référence implicite. Fais voir ton code ?

[AlfiQue]

dans mon form_load j'ai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Set appexcel = CreateObject("excel.application")
Set wbexcel = appexcel.Workbooks.Open("c:\sp\base.xls")
Set wsexcel = wbexcel.ActiveSheet
Dim num As Integer
num = 1
Set wsexcel = wbexcel.Worksheets(num)