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

Claudinedu13

XLDnaute Nouveau
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 ...


VB:
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

VB:
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
 
Solution
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
demo.gif

patricktoulon

XLDnaute Barbatruc
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
 

Claudinedu13

XLDnaute Nouveau
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
 

Pièces jointes

  • avantfiltre.jpg
    avantfiltre.jpg
    97 KB · Affichages: 1
  • aprèsfiltre.jpg
    aprèsfiltre.jpg
    55 KB · Affichages: 2

Claudinedu13

XLDnaute Nouveau
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
Je vais regarder ça , merci
 

Claudinedu13

XLDnaute Nouveau
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
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

VB:
'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)
 

Pièces jointes

  • aprèsfiltre.jpg
    aprèsfiltre.jpg
    16.2 KB · Affichages: 1

patricktoulon

XLDnaute Barbatruc
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
demo.gif
 

Pièces jointes

  • recherche.xlsm
    24.6 KB · Affichages: 6
Dernière édition:

Claudinedu13

XLDnaute Nouveau
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 .
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 211
Messages
2 096 246
Membres
106 542
dernier inscrit
Barnabousse