Discussion :

[couistelle]

Bonjour Le Forum,

L'intitulé du post n'est peut être pas très clair donc je vais préciser.

J'ai un petit formulaire de recherche qui, quand je tape un mot clé, m'affiche dans une listbox les valeurs trouvées.

Exemple : je tape chat et j'obtiens actuellement

Mot Clé >>>>> Race
chat >>>>>> siamois
chat >>>>>> persan
chaton >>>>>> siamois

Est-il possible d'obtenir plutôt dans la ListBox quelque chose ressemblant à :

Mot Clé >>>>>> Race
chat >>>>>> siamois/persan
chaton >>>>>> siamois

Sachant que dans la source qui alimente la Listbox les données sont sur deux lignes (comme dans le premier exemple en fait)

Moi personnellement je ne l'ai jamais vu ni employé donc c'est pour cela que je vous interroge.

D'avance merci

[ucfoutu]

Bonjour,

Il manque un élément essentiel pour se pencher sur ce cas :
Ta listbox est-elle liée à une source de données ou complétée par AddItem ?

[couistelle]

Bonjour,

Ma listbox est alimenté selon un tableau se trouvant dans une feuille excel selon la macro de Laetitia vu dans ce post :

http://www.developpez.net/forums/d69...che-mots-cles/

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 t(i, 1) Like "*" & TextBox1.Value & "*" 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

[ucfoutu]

Je ne vois aucun AddItem dans le code montré et n'ouvre jamais les xls
J'en déduis que ta listbox est liée.
Tu ne peux dans ces conditions en modifier directement les articles une fois ta listbox alimentée.
Soiit donc, tu fais un "travail" avant son alimentation (donc modification du jeu d'enregistrements), soit tu dresses une seconde liste (non liée, celle-là) à partir de la première.

[couistelle]

Donc si je comprends bien :

- comme je ne compte pas modifier la feuille de données, je dois passer par une seconde listbox générée "en cascade" par la première mais à laquelle je pourrais appliquer le format que je voudrai.

Une question cependant :comme je suis obligée de passer par 2 Listbox mais que je ne veux voir apparaitre que le résultat final, est ce qu'il est "courant" de coller une Listbox finale sur la Listbox temp ?

[couistelle]

Bonjour à tous,

Je reviens sur ce post : quelqu'un peut-il m'aiguiller sur comment débuter le code car je n'ai aucune idée de comment m'y prendre.

Merci

[laetitia]

bonjour couistelle le fil le forum je pense que tu parles de l exemple que je t ais fais je vais regardais a premiere vu pas si simple il faut peut etre tout repenser le code je regarderais ce soir

[ouskel'n'or]

Je ne vois aucun AddItem dans le code montré et n'ouvre jamais les xls
J'en déduis que ta listbox est liée.
Tu ne peux dans ces conditions en modifier directement les articles une fois ta listbox alimentée.

Hello ucfoutu, couistelle utilise ListBox1.List = ... et non RowSource
Pour une explication, regarde ici
Si tu pouvais apporter une solution pérenne...
Bonne journée

[ucfoutu]

Bonjour, ousk,

Vu ...

Il lui faut alors, au choix et selon ce qui est le plus rapide :

- soit "travailler" le tableau avant d'en passer le contenu à la listbox
- soit "travailler" la listbox après passage du tableau

j'opterais personnellement (mais n'ai pas essayé) pour un truc bâtard :
- trier le tableau (plutôt que la listbox)
- travailler ensuite sur la listbox (car il est plus facile d'éliminer des articles de listbox que des articles de tableau)

Le travail (une fois trié) est simple avec une boucle : si article suivant = article précédent (sur la colonne 2) ===>> article précédent = article précédent & "/" & article suivant
et on détruit article suivant, et ainsi de suite.

Encore que ... je crois bien que je ne me servirais pas ainsi d'une listbox et chercherais plutôt l'utilisation (plus rationnelle) d'un TreeView, quitte à passer par une boucle sur mes cellules (tant pis) plutôt que de transformer une plage en tableau. De sorte à m'éviter d'avoir ainsi des "truc/machin/chouette" mal exploitables ...

[couistelle]

Excusez moi les amis,

Je vais surement dire une grosse bêtise mais je ne vois pas la différence entre le

Code :

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

ListBox1.List = Application.Transpose(ta)

de Laetitia

et le

Code :

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

Me.ListBox1.List = Application.Transpose(Tablo)

de Ousk

[ouskel'n'or]

Je vais surement dire une grosse bêtise mais

C'est une grosse bêtise !
Me remplace, ici, le nom de l'userform contenant la liste. Une précaution quand tu as plusieurs userform chargés. Et comme je ne connais pas le contexte (1 usf ? 2 ? 10 ?) je l'ai utilisé. Ne nuit pas s'il n'y a qu'un usf chargé même s'il est facultatif de l'indiquer dans ce cas là.

[couistelle]

J'ai dit une demi-bêtise alors puisque je n'ai qu'un seul USF mais tu ne pouvais pas le savoir (donc demi !)

Sinon je cherche toujours pour l'instant j'avance pas trop mais si j'arrive a sortir quelque chose je vous fais signe