moteur de recherche

[Ilino]

BONJOUR FORUM
Ci-joint un fichier exemple de mon souci,
Je souhaite (créer un moteur de recherche) afficher des résultats de recherche sous deux conditions ComboBx1 et ComboBox2
Avant ça je souhaite de créer une liste déroulante dans ComboBox2 qui dépend de ComboBox1
Dans le comboBox1 ( sans doublant) afficher toutes les données de la colonne ci-dessous le code

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 2 To Sheets("FSEx 2014").Range("B65536").End(xlUp).Row
  ComboBox1 = Sheets("FSEx 2014").Range("B" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("FSEx 2014").Range("B" & i)
Next i

End Sub

Dans le ComboBox2 afficher les données qui correspondent au donnée sélectionné par comboBox1
Dans notre exemple
Si je selection dans le combobox1 B1 je dois avoir une liste dans CoMBOBOX2 A1 A2 A3 et A8
GRAZIE

 

[Regueiro]

Re : moteur de recherche

Bonsoir le Forum, Ilino
Regarde sur ce lien pour t'inspirer
Formation Excel VBA JB
MENU EN CASCADE
A+

 

[Ilino]

Re : moteur de recherche

Bonsoir le Forum, Ilino
Regarde sur ce lien pour t'inspirer
Formation Excel VBA JB
MENU EN CASCADE
A+

Bonjour Regueiro
Merci pour le lien , c'est magnifique comme support, mais si tu permets , je souhaite lise en cascade en code VB dans mon USF
grazie

 

[job75]

Re : moteur de recherche

Bonjour Ilino, salut Regueiro,

Commence déjà par nous fournir un UserForm qui tienne la route.

ComboBox2 n'existe pas...

A+

 

[Ilino]

Re : moteur de recherche

Bonjour Ilino, salut Regueiro,

Commence déjà par nous fournir un UserForm qui tienne la route.

ComboBox2 n'existe pas...

A+

Bonjour JOB
Sorry ci joint le bon fichier
A+

 

[job75]

Re : moteur de recherche

Re,

Le code dans l'USF du fichier joint :

Dim t 'mémorise le tableau

Private Sub ComboBox1_Change()
Dim x$, d As Object, i&
x = ComboBox1
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t)
  If t(i, 2) = x Then If t(i, 1) <> "" And _
    Not d.exists(t(i, 1)) Then d(t(i, 1)) = ""
Next
ComboBox2.Clear 'RAZ
If d.Count Then ComboBox2.List = d.keys
End Sub

Private Sub UserForm_Initialize()
Dim d As Object, i&
With Feuil1 'CodeName de la feuille
t = .Range("A2:B" & .Range("A" & .Rows.Count).End(xlUp)(2).Row)
End With
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(t)
  If t(i, 2) <> "" Then d(t(i, 2)) = ""
Next
If d.Count Then ComboBox1.List = d.keys
End Sub

A+

 

[Ilino]

Re : moteur de recherche

Bonjour MAITRE
Sans commentaire 😉
Premiere Etape Résolut
grazie grazie

 

[Ilino]

Re : moteur de recherche

Re MAITRE
A QUEL NIVEAU JE PERMUTE LES COLONNES ( A et B) DANS LES COMBOBOX1 ET 2 ??
a+

 

[Ilino]

Re : moteur de recherche

Re
sorry
je remplace t(i, 1) par t(i, 2) et t(i, 2) par t(i, 1)
A+

 

[Ilino]

Re : moteur de recherche

Bonjour Forum, MAITRE
JE VOUS SOLLICITE POUR LA PHASE FINALE DE MON FICHIER
Je souhaite afficher les résultats de recherche selon les deux ComboBox1 et 2 ET LES AFFICHER DANS listebox dans l'ordre
C,G,J,L,M,Q et I
GRAZIE

 

[job75]

Re : moteur de recherche

Re,

Nombreux exemples de remplissage d'une ListBox sur le forum.

Je verrai quand j'aurai le temps si personne ne se manifeste.

A+

 

[Ilino]

Re : moteur de recherche

Re maitre
merci , mais j'ai trouvé des exemples mais mon souci est de deux condition pour afficher les résultat
GRAZIE maitre

 

[job75]

Re : moteur de recherche

Re,

Remplissage de la ListBox dans ce fichier (2).

A+

 

[Ilino]

Re : moteur de recherche

Re
je t'avais dis sans commentaire MAITRE
C'EST NICKEL
resoluto
grazie

 

[Ilino]

Re : moteur de recherche

Re Maitre
comment faire pour adapter la largeur de List box pour chaque colonne?
GRAZIE