fonction de recherche VBA

[Alex]

Bonjour,

Comment puis je faire une recherche dans une feuille excel
En fait j'ai creer un textbox qui me permet de recuperer le mot a rechercher et je voudrait que la recherche s'effectue sur une feuille nommé DATA

j'ai essayé ca mais sans succés:

Sheets('Data').Select
Cells.Find(What:=textbox1.value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate



Comment dois je m'y prendre??

Merci d'avance

 

[Robert]

Bonjour Alex, bonjour le forum,

Si ta TextBox1 provient de la barre d'outils Boîte à Outils Contrôles et se trouve dans l'onglet Data, ton code modifié devrait fonctionner :

Dim c As Range

With Sheets('Data')
.Select
Set c = .Cells.Find(What:=.TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not c Is Nothing Then c.Select
End With

 

[Alex]

Bonjour robert

Merci pour ta réponse mais j'ai tjrs une erreur
qui est propriété ou méthode non géré par cet objet!!??

As tu une autre idée?

Merci

 

[Robert]

Bonjour Alex, bonjour le forum,

Je pense que pour éviter de perdre du temps tu devrais mettre ton fichier en pièce jointe. Si il est trop lourd même zippé, part d'un fichier vierge, fais-y un copier/coller de quleques données et surtout de ta Textbox. Le premier ou second post du forum est un tutoriel expliquant comment joindre un fichier à un post.