Saisie automatique dans inputbox

[JBARBE]

Bonjour à tous,
Lorsque je clique sur le bouton RECHERCHE, je voudrais que le nom (si il est présent dans la colonne A) s'affiche entièrement automatiquement dans le inputbox après que l'on ai saisie un ou 2 mots !
Merci à l'avance !

 

[JBARBE]

Bonjour Jean Marie, à tous,
Je pense que le format inférieur aux secondes n'existe pas dans excel car j'ai fait des recherches sans obtenir satisfaction !
Merci quand même Jean Marie et Bonne journée à tous !

 

[JBARBE]

Re,
Petite amélioration dans la boite de dialogue lorsque le nom du cheval n'a pas été trouvé !
Les Textbox s'effacent pour la saisie du cheval !

Private Sub ComboBox1_Change()
Dim lig As Variant
Dim Sht As Worksheet
Set Sht = Worksheets("Feuil1")
Application.ScreenUpdating = False
With UserForm1
lig = Application.Match(ComboBox1, Sht.Columns("A"), 0)
On Error GoTo fin
.TextBox1 = Sht.Cells(lig, 2)
.TextBox1.Value = Format(TextBox1.Value, "hh:mm:ss.00")
.TextBox2 = Sht.Cells(lig, 3)
.TextBox3 = Sht.Cells(lig, 4)
.TextBox4 = Sht.Cells(lig, 5)
.TextBox5 = Sht.Cells(lig, 6)
.TextBox6 = Sht.Cells(lig, 7)
.TextBox7 = Sht.Cells(lig, 8)
.TextBox8 = Sht.Cells(lig, 9)
.TextBox9 = Sht.Cells(lig, 10)
.TextBox10 = Sht.Cells(lig, 11)
Exit Sub
End With
fin:
Range("A3").End(xlDown).Offset(1, 0).Select
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
Application.ScreenUpdating = True
End Sub

Bonne soirée !