XL 2016 Faire une recherche avec like

[Don pépé]

Bonjour,
Je cherche a faire une recherche avec plusieurs critères pour une gestion de contact, je m'explique.
J'ai un combobox qui regroupe "Famille, autre, amis ..." et un textbox pour la recherche.
Quand je sélectionne un item dans la combobox je voudrais que ma recherche se fasse en prenant en compte se premier critère et ensuite le texte entrer dans le textbox comme deuxième critère pour mettre tous sa dans un listbox.

Quelqu'un aurais une idée comment je peux mis prendre svp ?

grand merci a vous 😉

 

[Staple1600]

Bonjour le fil, le forum

@Don pépé

Quelqu'un aurais une idée comment je peux mis prendre svp ?

Une idée pour savoir comment t'y prendre ?
Bien sûr!
Joindre un fichier EXCEL exemple (bien sûr anonymisé au préalable)
(ce qui nous évitera de perdre du temps à recréer un fichier qui existe déjà sur ton disque dur 😉)

 

[Don pépé]

Merci d'avoir pris le temps de me répondre.
Mais avec une recherche très approfondis sur le moteur de recherche mondialement connu j'ai trouer ma réponse.

encore merci. 😉

 

[Staple1600]

Re

@Don pépé
La question est donc désormais
Pourquoi diable ne pas avoir fait cette recherche avant d'ici poser ta question?

Une question subsidiaire pourrait-être
Pourquoi ne pas poster la solution à ta question?
(ceci afin de rester dans l'esprit du forum: partage des connaissances et entraide) ?

En effet, d'autres memebres du forum aaec une question proche de la tienne pourrait être interésser par ta solution, non ?

 

[Don pépé]

Re
1-j'ai poser cette question car cela fais 2 jour que je cherche et que je ne trouve pas.
2- Pour sur que cela peux aider quelqu'un (j'ai pas eu le temps raison familial 😉 )

    k = 0
    Me.ListBox1.Clear
    If Me.TextBox1 = Empty Then Me.TextBox1 = "*"
    If Me.ComboBox1 = Empty Then Me.ComboBox1 = "*"
   
    For i = 2 To [A65000].End(xlUp).Row
        If Cells(i, 1) Like Me.ComboBox1 And Cells(i, 2) Like "*" & Me.TextBox1 & "*" Then
            Me.ListBox1.AddItem
            Me.ListBox1.List(k, 0) = Cells(i, 1)
            Me.ListBox1.List(k, 1) = Cells(i, 2)
            Me.ListBox1.List(k, 2) = Cells(i, 3)
            Me.ListBox1.List(k, 3) = i
            k = k + 1
        End If
    Next i

 

[Staple1600]

Re

@Don pépé
je ne parlais que de chronologie 😉

Mais avec une recherche très approfondis sur le moteur de recherche mondialement connu j'ai trouer ma réponse.

Tu poses une question ici à 9h26 un lundi de Pâques
Tu troues ta réponse (comme tu dis 😉 ) sur G..g.e à entre 10h09 et 23s et 10h12.

Or donc pourquoi n'avoir pas finalisé ton harassant G..gling avant de venir nous voir? 😉

Merci pour ton retour et le postage de ton code VBA.