XL 2021 Aide pour affichage colonne listbox après une recherche par textbox

[Claudinedu13]

Bonjour,
j'ai utilisé des codes de @patricktoulon pour afficher les résultats d'une recherche dans une listbox (qui à la base affiche 3 colonnes),
quand ça filtre la recherche ça ne m'affiche qu'une colonne (la 3), alors que je voudrais afficher la 2 et la 3 , je n'arrive pas à trouver , merci pour votre aide ...

Private Sub ListeBoxNomRef()
    With ListBoxRef
        'Code @patricktoulon
        .Clear
        .ColumnCount = 3
        .ColumnWidths = "1;20;170"
        TabRefVal = Feuil5.Range("A2:C" & Feuil5.Range("A" & Rows.Count).End(xlUp).Row).Value '(3 colonnes)
        Call TriT2D(TabRefVal, 3, sens:=1)
        ListBoxRef.List = TabRefVal
     End With
End Sub

Private Sub TextBoxRef_Change() 'Filtre ListBoxRef suivant saisi dans TextBoxRef
    Dim t(), i&, a&
    With TextBoxRef
        If TextBoxRef.Value = "" Then
            'ListBoxRef.List = TabRefVal
            ListBoxRef.Visible = False
        Else
            ListBoxRef.Visible = True
            For i = 1 To UBound(TabRefVal)
                    If TabRefVal(i, 2) Like "*" & TextBoxRef.Value & "*" Then a = a + 1: ReDim Preserve t(1 To a): t(a) = TabRefVal(i, 3)  'affiche la colonne 3 je voudrais afficher la 2 et la 3
            Next
            If a = 0 Then ListBoxRef.Clear Else ListBoxRef.List = t
        End If
    End With
End Sub

 

[patricktoulon]

re
bonsoir
fichier!

 

[Claudinedu13]

re
bonsoir
fichier!

j'ai beaucoup de données dans ce classeur, je vais voir à te mettre juste ce qui nous intéresse ...

 

[Claudinedu13]

la recherche se fait sur la 2è colonne, et je voudrais afficher la colonne 2 et 3 après filtrage recherche

 

[patricktoulon]

re
je viens de regarder ton fichier
je crois que tu melange tout
ca serait pas plutot un filtre que tu veux et non un tri

 

[patricktoulon]

en cherchant un peu tu aurais trouver ton bonheur si c'est que je crois c'est bien que tu veux ?
je t'invite à aller voir

comment créer facilement une combobox intuitive

Bonjour à tous on voit beaucoup de propositions sur ce thème a savoir( une combobox intuitive) alors on trouve à boire et à manger dont la plus part utilise l'event change ce qui exepte sauf usine a gaz en terme de code l'utilsation du event...

excel-downloads.com

 

[Claudinedu13]

re
je viens de regarder ton fichier
je crois que tu melange tout
ca serait pas plutot un filtre que tu veux et non un tri

re,
oui je veux bien un filtre et un tri, qui sont en place et fonctionne bien, mais je n'arrive pas à afficher la colonne des abréviations après le filtrage
par ex : je tape v , j'ai tous les mots contenants v qui sont affichés, mais il me manque la colonne abreviation (2), je pense que pour toi c'est simple à obtenir, mais pour moi c'est un casse tête

 

[Claudinedu13]

en cherchant un peu tu aurais trouver ton bonheur si c'est que je crois c'est bien que tu veux ?
je t'invite à aller voir

comment créer facilement une combobox intuitive

Bonjour à tous on voit beaucoup de propositions sur ce thème a savoir( une combobox intuitive) alors on trouve à boire et à manger dont la plus part utilise l'event change ce qui exepte sauf usine a gaz en terme de code l'utilsation du event...

excel-downloads.com

Je vais regarder ça , merci

 

[Claudinedu13]

en cherchant un peu tu aurais trouver ton bonheur si c'est que je crois c'est bien que tu veux ?
je t'invite à aller voir

comment créer facilement une combobox intuitive

Bonjour à tous on voit beaucoup de propositions sur ce thème a savoir( une combobox intuitive) alors on trouve à boire et à manger dont la plus part utilise l'event change ce qui exepte sauf usine a gaz en terme de code l'utilsation du event...

excel-downloads.com

J'ai trifouillé un peu en regardant ta vidéo, j'ai modifié cette ligne , j'obtiens presque ce que je veux, sauf le saut de ligne qui devrait être
sv Remplacement simple vitrage
s5 Serrure 5 points

'If TabRefVal(i, 2) Like "*" & TextBoxRef.Value & "*" Then a = a + 1: ReDim Preserve t(1 To a): t(a) = TabRefVal(i, 3)
If TabRefVal(i, 2) Like "*" & TextBoxRef.Value & "*" Then a = a + 1: ReDim Preserve t(1 To 2, 1 To a): t(1, a) = TabRefVal(i, 2): t(2, a) = TabRefVal(i, 3)

 

[patricktoulon]

re
Bonjour
j'ai du le refaire il a un soucis ton fichier
et j'ai ajouter des options
tu peux choisir la colonne de recherche en cliquant sur l'entête
tu peux choir le mode de recherche(contient ou commence par)(bouton option)
tu peux tout simplement afficher ou rendre invisible la liste avec le bouton a droite du textbox

j'arrête là sinon je vais lui donner la parole a ton truc 😂
voila la bête

 

[Claudinedu13]

re
Bonjour
j'ai du le refaire il a un soucis ton fichier
et j'ai ajouter des options
tu peux choisir la colonne de recherche en cliquant sur l'entête
tu peux choir le mode de recherche(contient ou commence par)(bouton option)
tu peux tout simplement afficher ou rendre invisible la liste avec le bouton a droite du textbox

j'arrête là sinon je vais lui donner la parole a ton truc 😂
voila la bête
Regarde la pièce jointe 1187970

Waouh , magique , trop bien ce qu'on peut faire avec quelques lignes

J'essaie ça ce soir, merci pour le temps que tu passes pour mes demandes .