Microsoft 365 Erreur 13

[bbopascal]

Bonjour je n'arrive pas a trouver pourquoi j'ai une erreur 13

je lance mon userform LoginForm je saisie mon ID puis mon Mdp et erreur 13 à la validation

voici mon fichier si quelqu'un a les yeux plus affuté que moi j’en peu plus de chercher

Merci

 

[Phil69970]

Bonjour @bbopascal et bienvenu sur XLD

Ton problème vient d'ici

.Range("B5,B6").ClearContents 'efface B5:B6 feuille Admin
UserRow = .Range("B8").Value 'userRow

En clair tu vides B5 et B6 et après tu cherches la valeur de B8 qui est une formule de la ligne que tu viens de vider !!!!

A remplacer par :

UserRow = .Range("B8").Value 'userRow
.Range("B5,B6").ClearContents 'efface B5:B6 feuille Admin

Merci de ton retour

 

[bbopascal]

Bonjour

Merci beaucoup...