[E-97][E-03] Recherche par mots clés

**couistelle** · 02/03/2009, 11h36

Bonjour,

Je vous sollicite pour des petits soucis liés à un formulaire de recherche par mots clés.

Voilà, j'ai un premier UserForm dans lequel je rentre par le biais d'un TextBox un certains nombre de mots clés.
A chaque changements dans le TextBox, une procédure "recherche" s'exécute permettant ainsi l'affichage dans une ListBox des résultats de la recherche.

L'objectif à terme est de pouvoir double cliquer sur l'un des résultats situés dans la ListBox et d'ouvri un deuxième formulaire avec des champs déjà pré-rempli.

Mes questions sont les suivantes :
- comment peut-on afficher le résultat de la recherche dans la ListBox ?
- est-il possible de double cliquer sur une ligne résultat et d'ainsi ouvrir un autre formulaire déjà pré-rempli.

Ci-joint un classeur exemple :
Je recherche en mots clé "Ville", je dois avoir afficher dans la fenêtre de résultat "Toulouse" et "Montélimar" (=> ce que je n'arrive pas à faire)
Le but étant de cliquer sur Montélimar et de voir apparaitre dans le second formulaire dans la TextBox ville "Montélimar" et dans la TextBox code Postal "26200"

Mon code est pour l'instant le suivant mais il est erroné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub UserForm_Initialize()
 
Dim motclé As Range
 
Worksheets("Base de données").Activate
 
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Name = "motclé"
 
End Sub
'----------------------------------------------------------------
Private Sub ListeMC_Change()
 
recherche
 
End Sub
'----------------------------------------------------------------
Sub recherche()
 
Dim mot_cherché  As String
Dim celluletrouvee As Range
 
 
mot_cherché = ListeMC.Value
Set celluletrouvee = Range("motclé").Find(mot_cherché)
'ERREUR' UserForm1.Resultat.Value = Range(celluletrouvee, celluletrouvee.Offset(0, 1))
End Sub

Merci d'avance si vous voyez des solutions à mes petits soucis

**laetitia** · 02/03/2009, 14h34

bonjour couistelle le forum un ex: si j ai compris !!

**couistelle** · 02/03/2009, 14h41

Oui merci c'est tout à fait ça !!

Je vais me pencher sur ton travail et essayer de comprendre comment tu as fait, je te poserais des questions si j'ai des problèmes.

Encore merci !

**couistelle** · 02/03/2009, 16h50

J'ai une question :

Apparemment je suis limité au niveau de l'affichage dans la listbox à 10 items

comment faire pour en ajouter un de plus ?

au niveau du code l'erreur se situe ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.List(N, 10) = C.Offset(0, 10)

Merci

**laetitia** · 02/03/2009, 18h27

re, le forum effectivement ce code est limite en nb..de colonnes combien
tu en as !!!

**couistelle** · 02/03/2009, 20h30

j'en ai 12...

**couistelle** · 03/03/2009, 11h06

Quelqu'un a une idée pour contourner ce problème ?

**laetitia** · 03/03/2009, 12h42

bonjour couistelle le forum une version adapter.

**couistelle** · 03/03/2009, 14h39

Merci beaucoup !!

Tout marche très bien, définitivement résolu !

**couistelle** · 03/03/2009, 15h28

Une question subsidiaire tout de même :

Comment dois-je adapter ce dernier code si je veux pouvoir chercher un mot parmi les différents mots clés ?

Dans l'exemple cela voudrait dire que je veux chercher "Nougat" et non "Ville" en premier pour Montélimar.

**laetitia** · 03/03/2009, 18h34

rebonjour couistelle le forum faire un recheche sur une autre colonne ou sur toutes en meme temps c est facile a batir avec des variables par contre comme tu veus faire il faut que je regarde surement avec une autre fonction pour extraire le deuxieme mot de la cell..ou supprimer le premier .si j ai le temps je regarderais ce soir sujet interessant....

**couistelle** · 04/03/2009, 09h47

En fait ce qu'il faudrait dire c'est :
Cherche le premier mot (compter le nombre de caractère avant l'espace et rechercher le mot que cela forme) ; Si non trouvé alors chercher le mot apres espace, si non trouvé, chercher le troisième mot....

avec nombre de mot = nombre d'espaces + 1

Sinon j'avais aussi penser à une recherche avec caractère générique de type * (comme dans access) pour chercher n'importe où dans le mot

Mais bon tout ça je ne sais pas comment le traduire...

**Pierre Fauconnier** · 04/03/2009, 09h57

Bonjour

Il serait peut-être intéressant d'utiliser Like

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if cellule.value like "*nougat*"

permet de voir si nougat se trouve dans la cellule.

Il faut peaufiner un peu pour les majuscules, accents, etc...

Il serait sûrement utile, pour réaliser cela, de s'orienter vers les expressions régulières , et notamment ce tuto de caféine

**couistelle** · 04/03/2009, 10h07

Bonjour et merci d'entrer dans la discussion

J'ai une question cependant : comment écrire mon programme si justement je ne pas y voir figurer expressément nougat mais plutot *valeur de la cellule*, puisque dans chaque cellule je n'ai pas marqué nougat

**Pierre Fauconnier** · 04/03/2009, 10h17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if cellule.value like "*" & valeur & "*"

avec Valeur représentant une variable de type string.

Il serait aussi utile d'optimiser le code (dans une autre discussion pour ne pas "polluer" celle-ci)

**couistelle** · 04/03/2009, 10h30

Reprenons donc pour ma petite cervelle de débutante :

Je fais une recherche de plusieurs mots clé (séparés par un espace) quelque soit leur position dans la cellule, et je souhaite afficher le résultat dans une listbox sur 12 colonnes.

Le code proposé par Laetitia et qui fonctionne pour la recherche sur le premier mot de la cellule est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub TextBox1_Change()
 
On Error Resume Next
 
Application.ScreenUpdating = False
t = Range("a2:l" & Range("a65536").End(xlUp).Row)
ListBox1.Clear
X = 1
For i = 1 To UBound(t)
If Left(t(i, 1), Len(TextBox1)) = Left(TextBox1, Len(TextBox1)) Then
ReDim Preserve ta(1 To 12, 1 To X)
For k = 1 To 12
ta(k, X) = t(i, k)
Next k: X = X + 1: End If: Next i
If X - 1 = 1 Then
ListBox1.List = Application.Transpose(ta)
For t = 1 To Range("a65536").End(xlUp).Row
If Cells(t, 1) = (ListBox1.List(ListBox1.ListIndex + 1, 0)) Then
Cells(t, 2).Activate: End If: Next t
Range(ActiveCell(1, 0), ActiveCell(1, 11)).Select
ListBox1.Clear: t = Selection: ListBox1.List = t: [a1].Select
Else
ListBox1.List = Application.Transpose(ta)
End If: Erase t, ta: Label6 = X - 1: If TextBox1 = "" Then ListBox1.Clear: Label6 = ""
Label6.Caption = "nb...  " & ListBox1.ListCount: Beep
 
End Sub

Il va donc falloir modifier cette partie du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Left(t(i, 1), Len(TextBox1)) = Left(TextBox1, Len(TextBox1)) Then

Pour insérer quelque chose du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If t like "*"&TextBox1.value&"*"

Ai-je bon ?

**Pierre Fauconnier** · 04/03/2009, 10h41

Il suffit d'essayer...

... Cela devrait fonctionner

**laetitia** · 04/03/2009, 10h47

bonjour couistelle Pierre le forum essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If t(i, 1) Like "*" & tbx1.Value & "*" Then

**couistelle** · 04/03/2009, 11h06

Tout marche à merveille !

Merci encore à tous pour cette discussion très instructive !

[E-97][E-03] Recherche par mots clés

Macros et VBA Excel

Discussions similaires

Partager

Partager