Problème validation textbox VBA

Version imprimable

bonjour à tous,

je travaille sur un projet en VBA et je souhaiterai que l'utilisateur se loggue.
Pour cela il choisi son profil dans une liste déroulante puis doit saisir son mot de passe dans une textbox. Tout ça bien sur dans un userform.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub CmdOK1_Click()
 
    If mdp_ok = True Then
        LoginMag_Ame.Hide
        MsgBox "profil", vbOKOnly, "profil"
    Call verification(magasin)
Else
    MsgBox "Saisie du mot de passe incorrecte.", vbOKOnly + vbCritical, "Attention"
End If
End Sub

et la procédure verification magasin :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
Sub verification(magasin)
Dim magasin As String
 
'Pour valider le mot de passe selon le magasin choisi
 
Select Case magasin
    Case "Toulouse"
        If MdPMag.Text = "tttt" Then
            MsgBox "Vous êtes identifié comme étant le magasin de Toulouse", vbOKOnly + vbInformation, "Bienvenue"
        Else
            MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
        End If
 
    Case "Bordeaux"
        If MdPMag.Text = "bbbb" Then
            MsgBox "Vous êtes identifié comme étant le magasin de Bordeaux", vbOKOnly + vbInformation, "Bienvenue"
        Else
            MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
        End If
    Case "Lyon"
        If MdPMag.Text = "llll" Then
            MsgBox "Vous êtes identifié comme étant le magasin de Lyon", vbOKOnly + vbInformation, "Bienvenue"
        Else
            MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
        End If
    Case "Paris"
        If MdPMag.Text = "pppp" Then
            MsgBox "Vous êtes identifié comme étant le magasin de Paris", vbOKOnly + vbInformation, "Bienvenue"
        Else
            MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", vbCritical, "Erreur"
        End If
    Case Else
        MsgBox "Attention, vous ne vous êtes pas correctement identifiés !", 16, "Erreur"
End Select
 
End Sub

Et ça ne marche pas... Mes données sont stockées dans la feuille "Mots de Passe" avec une colonne login et une colonne mot de passe

Je ne comprend pas d'où vient le problème, auriez-vous une idée??

Merci d'avance pour votre aide

PS: n'hésitez pas à me dire si il manque des infos

Tu voulais dire de D2 à Dxx

Essaies comme ceci
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() Dim DerCell As String With Workbook("progiciel.xlsm").Worksheets("Mots de passe").Activate DerCell = .Range("D1").End(xlDown).Address Me.ListFourn.RowSource = "'" & .Name & "'!D2:" & DerCell End With End Sub
Déjà UserForm_Initialize et non NomDeTonUsf_Initialize()

Workbook("progiciel.xlsm") non nécessaire si progiciel.xlsm est ton classeur où tu as l'userform

Oups, tu as entre temps changé la question initiale??

24/11/2012, 14h22
mercatog

Réponse pour ta 2ème version du problème

Quand tu fais

Code:

Call verification(magasin)

Je ne vois que contient magasin (si c'est une variable ou un control)

Ensuite, si tu as une feuille Login et mdp
Il suffit de créer une combobobx sur les login et un TextBox où l'utilisateur entrera son mot de passe et enfin à l'aide d'une simple RechercheV ou la méthode Find de vba obtenir si le mot de passe correspond ou non

Une autre variante est d'utiliser une Combobox à 2 colonnes (la colonne mdp étant masquée)
24/11/2012, 14h23
melielutin

Citation:

Envoyé par mercatog

Tu voulais dire de D2 à Dxx

Déjà UserForm_Initialize et non NomDeTonUsf_Initialize()

Workbook("progiciel.xlsm") non nécessaire si progiciel.xlsm est ton classeur où tu as l'userform

Oups, tu as entre temps changé la question initiale??

Merci pour ta réponse, je me suis rendue compte que le problème venait de là, du coup j'ai changé ma question parce que comme personne répondait... et que je galère ailleurs...

Mais merci pour ta réponse en tout cas, ça confirme que parfois j'ai pas les yeux en face des trous !
24/11/2012, 14h26
melielutin

Citation:

Envoyé par mercatog

Réponse pour ta 2ème version du problème

Quand tu fais

Code:

Call verification(magasin)

Je ne vois que contient magasin (si c'est une variable ou un control)

Ensuite, si tu as une feuille Login et mdp
Il suffit de créer une combobobx sur les login et un TextBox où l'utilisateur entrera son mot de passe et enfin à l'aide d'une simple RechercheV ou la méthode Find de vba obtenir si le mot de passe correspond ou non

Une autre variante est d'utiliser une Combobox à 2 colonnes (la colonne mdp étant masquée)

Merci, je vais essayer avec la fonction Find de VBA, je dois aller travailler, j'essaye en rentrant et je te dis si ça marche !

Petite question, je met la fonction dans la private sub text box ou je dois faire une procédure apellant la fonction find??

Merci pour ton aide ;)