Erreur 424 dans un find

Bonjour le forum,

J'ai une erreur 424 dans un code. Ma bouble et mon find fonctionnent très bien. En revanche je n'ai besoin de ne traiter que les cas ou ma recherche n'aboutit pas, j'ai donc utiliser un is nothing dans une boucle if et la... erreur 424...

Voici le code, celui ci est intégré dans une boucle for, m étant l'indice de la boucle, mais beaucoup trop long et sans intéret pour cette question je pense

If Right(Left(.Range("B" & m), 6), 1) = "L" Or Right(Left(.Range("B" & m), 6), 1) = "R" Then
    If Right(Left(.Range("B" & m), 6), 1) = "L" Then
        looking = Left(.Range("B" & m), 5) & "R" & Right(.Range("B" & m), 2)
    Else: looking = Left(.Range("B" & m), 5) & "L" & Right(.Range("B" & m), 2)
    End If
    reflook = .Columns(2).Find(what:=looking, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
    If reflook Is Nothing Then
        .Range("A" & m & ":E" & m).Interior.ColorIndex = 27
    End If
End If

En examinant le mode pas à pas, je me rend bien compte que mon looking prend bien une valeur après le passage du find. Cette valeur est tu type 6chiffres,1letrre,2chiffres, c'est à dire par exemple 00321R02.

L'erreur 424 apparait au moment du passage de la ligne

If reflook Is Nothing Then

à la ligne

.Range("A" & m & ":E" & m).Interior.ColorIndex = 27

Si quelqu'un peut m'aider ca serait cool !

Merci d'avance !


Erreur trouvée : il manquait un Set...

Rechercher des sujets similaires à "erreur 424 find"