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