if cells.find = false

Salut les Kracks,

Je souhaiterai inclure dans une procédure la fonction cells.find (CTRL F) faisant une recherche uniquement dans la colonne A suite à une variable indiqué par l'utilisateur dans une input box:

Code:

---

1 2 3 4 5

Columns("A:A").Select cells.Find(What:=varaccount1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate

---

Cette dernière marche très bien mais bug si l'utilisateur entre une donnée n'existant pas! :aie:
Aussi, je souhaiterai obtenir l'astuce me permettant d'y remédier du genre:

Code:

---

If cells.find = false then...

---

Salutations

Code:

---

1 2 3 4 5 6 7

Dim c As Range   Set c = Range("A:A").Find(What:=varaccount1, LookIn:=xlFormulas, LookAt:=xlWhole) If Not c Is Nothing Then MsgBox c.Address Set c = Nothing End If

---

Merci Mercatog ;-)