Recherche validante une fois

Bonjour,

Je ne suis pas sur d'avoir trouvé le titre adequat mais pas facile de trouver un titre décrivant mon problème.

J'ai une recherche avec un textbox qui doit se mettre en noir lorsque le résultat coincide avec la valeur d'une cellule. jusque là ca fonctionne.

Lorsque le match est fait entre la cellule et la valeur de la textbox je dois pouvoir appuyer sur une fleche qui m'ouvre un autre UF sinon il ne se passe rien lorsque l'on clique sur cette fleche.

En fait pour cette étape tout fonctionne lors de la premiere saisie mais ensuite si je modifie par quoi que ce soit dans le textbox la fleche reste toujours valide.

Merci pour votre aide

Private Sub TextBox1_Change()
TextBox1.ForeColor = RGB(255, 0, 0)

Image1.Enabled = False

For ligne = 2 To 249
If TextBox1.Value Like Cells(ligne, 4) Then
Cells(ligne, 4).Select
TextBox1.ForeColor = RGB(0, 0, 0)
End If
Image1.Enabled = True
Next

End Sub

Bon en fait finalement quand on trouve la solution on se dit que c'était tout bête.

Il manquait simplement le "exit sub"

Private Sub TextBox1_Change()
TextBox1.ForeColor = RGB(255, 0, 0)

For ligne = 2 To 249
Image1.Enabled = False
If TextBox1.Value Like Cells(ligne, 4) Then
Cells(ligne, 4).Select
TextBox1.ForeColor = RGB(0, 0, 0)
Image1.Enabled = True
Exit Sub
End If
Next