recherche

[Alex]

Bonjour,

Voila j'ai une feuille possédant une textbox et un bouton ok qui me permettre de lancer une recherche sur un mot
Faire la recherche j'y arrive mais je voudrais qu'elle continu aprés avoir trouver le premier mot identique
Je voudrais pouvoir réaliser une recherche qui me donne comme résultat plusieurs réponses

QQN voit il comment je dois m'y prendre


Merci d'avance
Alex

 

[mutzik]

Bonjour Alex,

Pourquoi veux-tu recréer ce qui existe déja d'office dans excel, à savoir la fonction de recherche (CTRL + F F pour Find)

 

[Alex]

Salut

On fait si je veux faire avec vba c'est pour pouvoir traiter les résultats obtenu

QQn à une idée??

Merci

 

[pierrejean]

bonjour Alex

tu nous mets un fichier exemple et on pourra te repondre

 

[Charly2]

Bonjour Alex, mutzik et pierrejean, bonjour à toutes et à tous

Alex, sous vbe, tu regardes l'aide sur les méthodes Find et/ou FindNext ; les exemples sont faciles à mettre en application.

A+

 

[Alex]

Bonjour a tous,

Ne parvenant pas à mes fin je vous joint un fichier
Il y a 2 feuilles rack et data on rempli la feuille data et ensuite on fais une recherche si le mot est trouver un command button change de couleur mais je voudais que si il y a plusieurs resultat à la requete, plusieur command button soit coloré

voila jeter un oeil au fichier c'est plus clair

Merci d'avance

Alex [file name=essai_20060307104851.zip size=27464]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060307104851.zip[/file]

 

[Charly2]

Bonjour Alex, mutzik, pierrejean, bonjour à toutes et à tous

Je te retourne ton fichier avec un exemple de code qui semble répondre à ta demande, sauf si j'ai mal compris :whistle:

Le code est basé sur Find et FindNext pour la recherche.

[file name=Alex_EssaiV1.zip size=38175]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Alex_EssaiV1.zip[/file]

A+

 

[Alex]

Merci Charlie!!
C'est parfait ce que tu m'envoie la

Une seule petite question si je n'entre rien je voudrais que tout me soit réinitialisé à la couleur grise sans emplacement inscrit
comment dois je m'y prendre ?

Merci encore !!

 

[Charly2]

re

En début de procédure, après Range('F7') = '', j'ai oublié une instruction :

  ' On remet tous les boutons à leur couleur initiale
  For Each OLEObj In ActiveSheet.OLEObjects
    OLEObj.Object.BackColor = &H8000000F
  Next

  Range('F7') = ''

  With Me.TextBox1
    If .Value = '' Then Exit Sub
    If IsDate(.Value) Then
      ValeurCherchee = CVar(CDate(.Value))
    Else
      ValeurCherchee = .Value
    End If
  End With

Voilà

A+

 

[Alex]

Merci charlie

j'était entrain de codé cela ..

En tout cas vraiment merci pour le travail que ta fais sur le fichier c'est super

SI j'ai besoin je sais à qui m'adresser sur le forum!!