Salut tt le monde,

Voila j'ai un problème avec la méthode Find et je ne vois pas comment m'en sortir.

Sur une feuille je recherche un numéro de Tel, en utilisant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set d = ActiveSheet.UsedRange.Find(Num)
par exemple au 1er passage il le trouve a la ligne 10, puis 20 et enfin 50. En combinant ma 1ere rechreche avec une 2nde donc un autre critère je ne prend en considérantion que le résultat de la ligne 50. Jusqu'a la c bon. ensuite je selectionne quelques lignes (par exemple entre 50 et 55) que je copie dans une autre feuille.

Je souhaitrai ensuite reprendre ma recherche au dela de la précédente, mais je n'arrive pas à trouver la bonne méthode.

j'ai essayé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set d = ActiveSheet.UsedRange.FindNext(d)
Mais s'il il ne trouve rien au dela de a ligne 50, il ne fera que boucle en reprenant la recherche du début

J'ai essayé ensuite:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Set plage = Range(Cells(m, 1), Cells(Lig, 18))
Set d = ActiveSheet.plage.Find(Num)
Mais la je trouve une erreur 438... Objet ne supporte pas cette propriete ou methode

Merci de votre aide

Si la description de mpn pn n'est pas claire, merci de me le signaler