Moteur de recherche

[Haricot75]

Bonjour,

J'ai créer un fichier excel (utilisant des userforms) pour classer environ 200 exemples.

Chaque exemple contient une description de ce qu'il fait, ainsi que d'autres informations.

J'aimerais faire dans mon fichier une fonction de recherche par mots clés pour trouver (d après le texte de la descritpion de l'exemple) ce qui correspond le mieux.

Savez vous comment faire, ou avez vous un exemple de moteur de ce type qui donne de bons résultats ???

je vous remercie ! 🙂
Fred

 

[Temjeh]

Re : Moteur de recherche

Bonjour

J'avais ceci dans me zip

Faute de détails (sur quelle col, quelle cell)à toi de l'adapté

Temjeh

 

[Samantha]

Re : Moteur de recherche

Bonjour Le Forum, Les Gens, Haricot, Temjeh

Sympa ta toupie mais comment ça marche (macro ? formule ? j'ai rien vu 🙁)

A te lire


Sam

 

[Temjeh]

Re : Moteur de recherche

Rebonjour

Voici regarde ces lignes dans vba (alt+f11)
Pour toupie c'est spinbutton SpinUp() SpinDown()

Private Sub SpinButton1_SpinDown()
 If ComboBox1 = "" Then
  MsgBox " Vide !"
 Else
  Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False , SearchFormat:=False).Activate
    TextBox2 = ActiveCell
    TextBox3 = ActiveCell.Offset(0, 1)
    TextBox4 = ActiveCell.Offset(0, 2)
  SpinButton1.SetFocus
 End If
End Sub


Private Sub SpinButton1_SpinUp()
 If ComboBox1 = "" Then
  MsgBox " Vide !"
 Else
  Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False , SearchFormat:=False).Activate
    TextBox2 = ActiveCell
    TextBox3 = ActiveCell.Offset(0, 1)
    TextBox4 = ActiveCell.Offset(0, 2)
  SpinButton1.SetFocus
 End If
End Sub

A+

Je part au travail mais si d'autre peuvent répondre

Temjeh