récupérer le contenue d'une Textbox

olhey · 16 Juillet 2009

bonjour,

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

Pierrot93 · 17 Juillet 2009

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

Bonjour Olhey

essaye en modifiant la ligne de recherche comme suit :

Code:

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

bonne journée
@+

olhey · 17 Juillet 2009

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 · 19 Août 2009

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) · 19 Août 2009

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+

récupérer le contenue d'une Textbox

olhey

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

olhey

XLDnaute Occasionnel

olhey

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Discussions similaires