Pb VB sur utilisation de VLookup

Bonjour à tous,

je viens vers vous car je dois faire un projet excel en cours et je rencontre un problème dans la programmation VB.

Je vous expose la situation : j'ai une userform qui me sert à l'identification de l'utilisateur. il entre son identifiant et son mot de passe. Et mon objectif est d'aller voir si ces données correspondent avec la liste des utilisateurs qui se trouve dans une feuille excel "login".

J'ai donc le code suivant dans le bouton OK de ma userform login

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub LoginOK_Click() Dim test As String   identifiant = identifiant.Value password = mdp.Value test = WorksheetFunction.VLookup(identifiant, Sheets("login").Range("A2:B5"), 2, False)   If test = password Then identifiant.Value = "" mdp.Value = "" Me.Hide accueil.Show Else: MsgBox "erreur d'identification, veuillez recommencer", , "Erreur" identifiant.Value = "" mdp.Value = "" identifiant.SetFocus End If   End Sub

---

- lorsque tout se passe bien (l'identifiant existe dans la liste et le mot de passe est correcte) tout va bien.

Mais mon gros problème est que si l'utilisateur ne précise pas d'identifiant, ou s'il précise un nom d'utilisateur qui n'est pas dans mon tableau excel, ca plante en me métant un message d'erreur :

Citation:

---

Erreur d'exécution '1004' :
Impossible de lire la propriété Vlookup de la classe WorksheetFunction

---

Pourriez-vous m'aider à résoudre ce problème.

Merci d'avance

Bonjour,

cette erreur survient si VlookUp ne trouve pas ton identifiant... utilise le gestionnaire d'erreur modifie ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub LoginOK_Click() Dim bIntrouvable As Boolean (....) On Error Resume Next test = WorksheetFunction.VLookup(identifiant, Sheets("login").Range("A2:B5"), 2, False) bIntrouvable = (Err = 1004) ' met à 1 le flag bIntrouvable si l'identifiant est introuvable On Error GoTo 0 'Reinialise traitement d'erreur If test = Password And Not bIntrouvable Then (..)

---

CA MARCHE !!! merci beaucoup.

Pourriez-vous m'expliquer rapidement le fonctionnement d'une ligne comme celle ci :

Code:

---

bIntrouvable = (Err = 1004)

---

Merci

Bonjour,
Err = 1004 retourne un booleen soit VRAI si c'est vérifié sinon FAUX
et on l'affecte à la variable bIntrouvable

Code:

---

1 2	bIntrouvable = (Err = 1004)

---

est plus beau que

Code:

---

1 2 3 4 5 6

If Err = 1004 Then bIntrouvable = True Else bIntrouvable = False EndIf

---

C'est plus beau et plus court.