recherche

mutzik

XLDnaute Barbatruc

• 6 Mars 2006

• #2

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)

 

Vote positif 0 Vote négatif

A

Alex

Guest

• 6 Mars 2006

• #3

Salut

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

QQn à une idée??

Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Mars 2006

• #4

bonjour Alex

tu nous mets un fichier exemple et on pourra te repondre

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 6 Mars 2006

• #5

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+

 

Vote positif 0 Vote négatif

A

Alex

Guest

• 7 Mars 2006

• #6

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]

 

Pièces jointes

• essai_20060307104851.zip

  26.8 KB · Affichages: 15

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 7 Mars 2006

• #7

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+

 

Pièces jointes

• Alex_EssaiV1.zip

  37.3 KB · Affichages: 22

Vote positif 0 Vote négatif

A

Alex

Guest

• 7 Mars 2006

• #8

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

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 7 Mars 2006

• #9

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

Cliquez pour agrandir...

Voilà

A+

 

Vote positif 0 Vote négatif

A

Alex

Guest

• 7 Mars 2006

• #10

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

 

Vote positif 0 Vote négatif