récupérer le contenue d'une Textbox

[olhey]

bonjour,

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!!🙂

 

[Pierrot93]

Re : récupérer le contenue d'une Textbox

Bonjour Olhey

essaye en modifiant la ligne de recherche comme suit :

Set rngTrouve = ActiveSheet.Columns(col).Cells.Find(what:=MaChaine, lookat:=xlPart)

bonne journée
@+

 

[olhey]

Re : récupérer le contenue d'une Textbox

And the winner is... PIERROT, merci c'est excellent!
rah... download-excel(et tou ses experts) est ton ami 🙂

 

[olhey]

Re : récupérer le contenue d'une Textbox

voilà j'ai encore une petite question:

par exemple si jai : teufelbrücke, j'aimerais que l'utilisateur puisse taper juste "teufel" et qu'il trouve quand même teufelbrücke... pour l'instant il affiche le message d'erreur

 

[youky(BJ)]

Re : récupérer le contenue d'une Textbox

Salut,
Je viens de faire un exemple sur le fichier
Tape exemple ......fra pour trouver "fraise"
A+