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

2 réponses

gbinforme
Messages postés
14935
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 616
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
10
Merci pour ton code, il est tjs valide, même 11 ans après ;-)
1