Laisser le curseur dans une TextBox

Bonjour,

J'ai crée dans une textbox un outil permettant de tapper un mot pour m'indiquer les cases dans lesquelles ce mot est écrit.

Si je désire taper soleil :

Je tape s dans la textbox : il exécute la recherche et m'indique toutes les cellules où * & "s" & "*" est écrit et le curseur sort de la textbox !

Ce qui signifie que je dois taper "s" recliquer sur la textbox", taper "o" recliquer sur la textbox, etc...

Du coup je voulais savoir s'il n'existait pas une propriétés pour maintenir le curseur dans la textbox.

J'ai essayé avec TextBox.SetFocus mais il me met "Erreur d'execution '438' Propriété ou méthode non gérée par cet objet"

Alors que j'ai vu cette méthode dans l'aide...

En vous remerciant

Voici le code :

Option Compare Text
Dim nb As Integer

'Fonction qui compte le nombre de ligne
Function nbLigne()

Range("A2").Select
nb = Range("A2", Selection.End(xlDown)).Cells.Count

End Function

Private Sub TextBox22_Change()

  Application.ScreenUpdating = False

  Range("$A:$A").Interior.ColorIndex = 2

  ListBox21.Clear

  If TextBox22 <> "" Then

    Call nbLigne

        For i = 2 To nb
            If Sheets("LJ").Cells(i, 12) Like "*" & TextBox22 & "*" Then
               Sheets("Outil").Cells(i, 1).Interior.ColorIndex = 24
               ListBox21.AddItem Sheets("LJ").Cells(i, 1)
               TextBox22.SetFocus

            End If

        Next
    End If

End Sub

Bonjour,

Peut-on voir ton fichier avec le code ?

Pour contourner le soucis, j'ai crée un "bouton".

Si vous me proposez autre chose : je suis à l'écoute