Accès multiple avec Mot de passe

[wahab_07]

Bonjour tout le monde,
Voilà je suis un débutant et j'ai pris l'exemple d'un membre de ce forum que je remercie d'ailleurs pour son aide, mais le problème c'est que à chaque fois j'ai le code d'erreur 1004 " la méthode 'Range' de l'objet '_global' a échoué, et toujours la même ligne en jaune quoi que je fasse ( sachant que j'ai fais pas mal de recherches sur le net et aussi pas mal de tentatives mais ça ne donne rien !!!

la ligne :

Set Rech = Range("Users").Find(Txb_User, LookIn:=xlValues, lookat:=xlWhole)


le code :

Private Sub Cmd_Valid_Btn_Click()
Dim Rech As Range
Dim MonParametre As Byte
Static TentativePW As Byte, TentativeID As Byte

If Txb_User.Value = "" Then End

Set Rech = Range("Users").Find(Txb_User, LookIn:=xlValues, lookat:=xlWhole)
If Not Rech Is Nothing Then

If Txb_Pass = Rech.Offset(0, 1) Then
Call Admin
End If
End If

End Sub

Sachant que Admin est une macro qui permet d'afficher toutes les feuils du classeur.
Je vous remercie d'avance.
Cordialement

 

[wahab_07]

Re : Accès multiple avec Mot de passe

Pardon, une dernière chose.
Ne prenez pas en considération ces deux ligne merci.
Dim MonParametre As Byte
Static TentativePW As Byte, TentativeID As Byte

 

[Mytå]

Re : Accès multiple avec Mot de passe

Salut le forum

Et tu crois que l'on va deviner ton problème sans fichier . . .

Pour joindre un fichier Aller en mode avancé » Gérer les pièces jointes

Mytå

 

[wahab_07]

Re : Accès multiple avec Mot de passe

Merci mon frère mais tu pouvais me le demander gentiment (vu que je suis nouveau) !!! je retire ma question.
Salam.