Cells.Find ne trouve valeurs >999

Bonjour,

Dans la macro ci-dessous, la fonction cells.find trouve les recherches de valeurs texte et inférieures ou = à 999 mais pas les valeurs supérieures à1000.

Si je mets 999 dans la colonne F du fichier cible, ça me renvoie bien le numéro de ligne.

Si je mets 1000 (et le change dans le what:= de la macro), ça ne renvoie "pas trouvé".

Quelqu'un pourrait m'aider ?

Merci,

Luc

Sub a()
Dim cel As Range
With Sheets("TEMP").Range("f:f")
    Set cel = Cells.Find(what:=999, LookIn:=xlValues, SearchFormat:=True)
    If cel Is Nothing Then MsgBox ("Pas trouvé")
    If Not cel Is Nothing Then MsgBox (cel.Row)
End With
End Sub

Bonjour

Je ne vois pas le souci... Vous n'avez pas un souci de format ?

Cordialement

Je ne crois pas, d'ailleurs que je fasse SearchFormat:=True ou False ça ne change rien.

regarder le fichier et dites moi

Oui, merci Dan.

J'ai réussi à m'en tirer en préparant un fichier à vous envoyer : en copiant/collant le code dans un nouveau classeur, tout marchait comme attendu.

Du coup j'ai fermé mon propre classeur et Excel, puis ré-ouvert : tout marche normalement maintenant. Il devait y avoir un problème de déclaration de variable quelque part.

Merci pour vos réponses.