Erreur d'execution 91 sous Excel/VBA

Résolu/Fermé
maxbvs Messages postés 2 Date d'inscription jeudi 17 janvier 2008 Statut Membre Dernière intervention 6 février 2008 - 17 janv. 2008 à 17:49
 Thierry17 - 30 janv. 2019 à 11:19
Bonjour,

Suite à une macro lancée, j'obtiens la "fameuse" erreur d'execution 91
Voici le code surligné qui proviendrait de l'erreur :

Cells.Find(What:=pprod, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


"pprod" est déclaré avant correctement,

Quelqu'un peut il m'aider ???????

Merci d'avance

MaXBvs
A voir également:

2 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 711
17 janv. 2008 à 22:23
bonjour

Vous avez tenté d'utiliser une variable objet ayant la valeur Nothing.

C'est ce que dit la doc et en fait cela arrive souvent en utilisant "find" .

Je pense que c'est le fait d'utiliser activate car tu ne peux pas sélectionner ce que tu n'as pas trouvé.

Personnellement je positionne un objet range et je teste le nothing avant de l'employer.

set sel = Cells.Find(What:=pprod, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
if sel is nothing then
code pas trouvé
else
sel.select
endif
11
Merci pour ton code, il est tjs valide, même 11 ans après ;-)
1