Discussion :

[ekynoxx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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.

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+