Pourquoi la fnction cells bug plante

pouvez vous me dire pourquoi la fonction cells bug . Merci

  If .Cells(.Range("Utilisateurs").Find(identifiant, LookIn:=xlValues, lookat:=xlWhole).Row, 2) = Connexion.motdepasse.Text Then

bonjour,

est ce que ça fonctionnerait mieux comme cela

with range("Utilisateurs")
        set C = .find(identifiant, LookIn:=xlValues, lookat:=xlWhole).Row, 2)
      if not (C is nothing) then
            if cells(C.row, C.column)=connexion then
            ....
            end if
     end if
end with

Je ne sais pas si cela fonctionnera car n'ayant pas tout le code ce n'est pas simple de voir le contexte

Bonjour haha,

Bonjour SylChat,

la fonction cells bug

Avec ton code, une erreur d’exécution 91 apparait si la variable identifiant n’a pas été trouvée dans la plage Utilisateurs.

La méthode indiquée par SylChat permet de ne pas générer d’erreur dans ce cas précis.

A+