Discussion :

[jipeh]

Bonjour à tous,

En m'aidant des deux sujets ci dessous :
La

Et la

J'ai cherché à construire un USF me permettant de faire une recherche multi onglet.

Le fonctionnement est la suivant :
- On choisit un mapping en 1
- On choisit un code à chercher en 2
- On clique sur Results
- On a les valeurs en sorties en 4

Les mappings sont toujours de la forme Code + Libellé.
Tous les mappings en entrée vont vers le même mapping en sortie.

Ce que je souhaite faire, c'est implémenter une textbox me permettant de faire une recherche via une partie du libellé <= ca j'y arrive (txtbox 6 et listbox 2) mais surtout de lier les resultats de cette recherche au code.

Actuellement je peux faire la recherche avec une chaine de caractère sur le libellé et sur le code. Le fait de le faire sur le code ne m'interesse pas énormément, cependant est ce une piste interessante pour faire la liaison ?

En résumé, il me faut lier la liste de code (listbox3) à la liste des libellés (listbox2) qui est fonction du choix de mapping en 1.

De plus, si je peux éliminer les doublons de mes listes....


Un GRAND merci d'avance ! et n'hésitez pas si je ne suis pas clair...

Fichier joint !

[Daniel.C]

Bonjour,

Est-ce que tu peux donner un exemple de ce que tu souhaites ?

[jipeh]

Oui je peux


Donc je veux chercher dans le mapping MNO;
le code et le libellé correspondant à Léa.

Je sélectionne donc MNO en 1,
Je ne connais plus le code qui correspond a Lea donc je vais sur le deuxieme Textbox (en face de 2) et je tape le.

A ce moment là, j'ai trois résultats :
LEA
Leopoldine
LEA

Deja si la je pouvais supprimer les doublons ca serait cool

Je souhaite que la Listbox du code se mettes à jour pour ne conserver que les codes correspondants aux libellés présent dans la listbox des libellés.

Si quand je sélectionne d'un coté ça sélectionne de l'autre ca serait un rêve !

En choisissant LEA, je sais que le code correspondant au prénom est 011223.
Toutefois si je ne m'en rappele pas il faudrait que quand je sélectionne une valeur dans la liste des libellés, la sélection du code correspondant se fase automatiquement.

Ensuite je lance ma recherche par le bouton 3- Results. Lui il utilise le code pour faire la recherche.
En sortie, j'ai le code et le libellé correspondant dans le mapping MNO.
Soit :
- 45422 pierre
et
- 8958 toto

En fait je veux lier les deux listes, tout en concervant la possibilité de rechercher par code ou par texte.

Suis-je plus clair ?

[Daniel.C]

Ca a l'air un peu plus compliqué que je ne le pensais. Tu devrais dissocier les recherches soit par texte, soit par code avec un seul listbox et un bouton de choix (texte ou code) Je te mets juste le code de la macro "Remplir pour éviter les doublons :

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 Remplir()
Dim q As Range
Dim Stro As String
Dim s As Range
Dim Strs As String
Dim Dico As Object
 
Set Dico = CreateObject("Scripting.Dictionary")
Me.ListBox2.Clear
Stro = Me.TextBox6.Value
Stro = "*" & Replace(UCase(Stro), " ", "*") & "*"
Me.ListBox3.Clear
Strs = Me.TextBox1.Value
Strs = "*" & Replace(UCase(Strs), " ", "*") & "*"
For Each q In Sheets(Me.ListBox1.Value).Range("B3:B" & LastLig)
        If q.Value <> "" Then
            If UCase(q.Value) Like Stro Then
                If Not Dico.exists(q.Value) Then
                    Dico.Add q.Value, q.Value
                    Me.ListBox2.AddItem q.Value
                    Me.ListBox3.AddItem q.Offset(, -1).Value
                End If
            End If
        End If
Next q
 
'F s
End Sub

[casefayere]

Un petit fichier exemple que tu devrais pouvoir adapter

[jipeh]

Un petit fichier exemple que tu devrais pouvoir adapter

Ha mince, j'ai répondu trop vite, je vais regarder ton fichier. Merci !

[jipeh]

Deja nickel ton code pour les doublons ! Merci beaucoup.

Je vais changer mon fusil d'épaule alors pour ma recherche. J'ai modifié mon USF pour enlever la liste des codes et faire soit un choix si on connait le code, soit on chercher par le libellé.

Le fichier est joint.

Mon seul soucis étant, Quand je sélectionne mion libellé il faut que mon code correspondant se mette dans le textbox de recherche par code. C'est lui qui est utilisé par le bouton de résultat mais c'est aussi une bonne indication.

J'ai mis un stop dans le code pour montrer l'endroit ou je tombe.