bonjour,
voilà mon code de ma petite fonction de recherche, le problème est que lorsque que j'entre 1 lettre il lance déjà la recherche; comment faire pour qu'il attende parexemple que je tape enter, ou que je pèse sur un bouton?
MErci de votre aide!!
Code:
Private Sub TextBox1_Change()
Dim rngTrouve As Range
Dim strChaine As String
strChaine = TextBox1.Value
Set rngTrouve = ActiveSheet.Columns(1).Cells.Find(what:=strChaine)
If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
Cells.Find(what:=strChaine).Activate
End If
Set rngTrouve = Nothing
End Sub
voilà mon code de ma petite fonction de recherche, le problème est que lorsque que j'entre 1 lettre il lance déjà la recherche; comment faire pour qu'il attende parexemple que je tape enter, ou que je pèse sur un bouton?
MErci de votre aide!!