Pourquoi ai-je une erreur lors d'une recherche si la valeur n'existe pas ?

Question

Bonjour,

J'essaye de faire une recherche dans un tableau excel à partire d'une macro.
Si la valeur que je recherhce n'est pas dans le tableau la macro bug et me met une erreur par contre si la valeur est bien dans le tableau pas de souci.

J'ai fait plusieur recherche sur le net et j'ai trouvé ceci :
http://vb.developpez.com/faqvba/?page=3.4.2#Find

Mais lorsque je met ce code à l'identique, j'ai une erreur 13 : Incompatibilité de type.

Quelqu'un a une solution ?

Merci

cs_Jack · Answer

Salut
Ton lien affiche des pages de code, cela ne nous dit pas où se trouve la recherche.
Ton lien est celui d'un autre site : Pose la question sur le forum de ce site et plus particulièrement à l'auteur de ces lignes
Une erreur survient sur une ligne : Dis-nous laquelle
Essaye de nous coller les quelques lignes importantes de ta macro (on n'a pas le temps de lire des romans)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

bigfish_le vrai · Answer

Salut, la methode find renvoi toujours une erreur si la valeur recherchée n'a pas été trouvée. il est donc preferable de faire comme ceci:

WithRange("A2:C21")
On Error Resume Next
Set objCell =.Find(What:="170", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
IfNot Err = 0 Then
            PremAdresse = objCell.Address
Do
If PlageResult IsNothingThen
Set PlageResult = objCell
Else
Set PlageResult = Application.Union(objCell, PlageResult)
EndIf
Set objCell =.FindNext(objCell)
LoopWhileNot objCell IsNothingAnd objCell.Address<> PremAdresse
EndIf
EndWith

Pourquoi ai-je une erreur lors d'une recherche si la valeur n'existe pas ?

2 réponses

Votre réponse

Discussions similaires