Problème Find par valeur

Bonjour,

J'effectue une recherche dans une feuille à l'aide de la fonction "find".

Je n'arrive pas à chercher par valeur et non par chaine de caractère.

Je m'explique mon champs de recherche peut etre soit de la forme :

000025458487
soit 25458487

Avant quand je cherchais à l'aide d'une boucle je pouvais faire

if Val(X) = Val(Quoi) then .....

Mais dans la fonction Find comment puis je faire?

avec l'enregistreur de macro

Je trouve la cellule qui contient 123 et celle qui contient 000123

Code:

---

1 2 3 4

Cells.Find(What:="123", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=True).Activate

---

Quand la valeur est 0004555 c'est enrégistrer en texte, sinon Excel enlève d'office les 0 inutiles.

peut-être

Code:

---

1 2	A = Val(Quoi) Find(A, lookin:=xlValues)

---

A+

Merci ca marche. J'ai juste changé le paramètre LookAt où j'avais mis xlWhole...