[VBA-E] - Propriete Find

Bonjour a tous,

je travaille sur une macro qui doit trouver un numero de comande (stocke dans une variable intitulee DR) dans un fichier.
J'utilise la propriete Find pour trouver la ligne correspondante.
Mon code est le suivant:

Code:

---

1 2 3 4 5 6 7 8

Sub Finddd()   Dim DR_Climber_Row As Double DR = 1452 DR_Climber_Row = Columns("A:A").Find(DR, Range("A1"), , , xlByRows, xlNext).Row Range("B1").Value = DR_Climber_Row   End Sub

---

Mon probleme est lorsque le DR n'est pas present une erreur survient.

Citation:

---

Object Variable or With blok variable not set

---

J'aimerai si c'est le cas inscrire sur la cell a cote : "Numero DR absent"
Je ne vois pas comment utiliser le If pour me permettre de gerer ce cas.

Merci d'avance.

Code:

---

1 2 3 4

With Columns("A:A") Set c = .Find(DR, Range("A1"), , , xlByRows, xlNext) End With If Not c Is Nothing Then DR_Climber_Row = c.Row

---

A+