XL 2016 Rechercher et afficher dans listbox

[KTM]

Bonsoir chers tous
Je voudrais rechercher des BL et les afficher dans mon List box.
Merci de voir mon fichier joint.

 

[cp4]

Bonjour,

une solution ici

 

[patricktoulon]

Bonjour KTM
je t'ai donné une solution simple me semble t il la dernière fois , il suffit de travailler la reconstruction du tableau sur 10 colonnes
c'est à croire que finalement tu ne retiens rien 😉

quand on veux faire une listbox intuitive avec réduction de choix par un textbox on utilise pas ROWSOURCE
car elle n'est plus modifiable après

tu resize ton tableau avec le currentregion par le end(xlup) ce qui te donne A9:J29 alors que l'on s’arrête a 21

je vire tout donc y compris tes label d’entêtes j'ajoute une listbox2 pour me faire l’entêtes dans la quelle je mettrais la ligne 9
et dans la listbox1 je mettrais le reste a partir de la ligne 10

et pour finir il serait peut être temps d'apprendre a travailler avec des tableaux structurés ça simplifie la tache
bref

Option Explicit
Option Compare Text
Dim tbl
Private Sub TextBox1_Change()
    Dim t(), i&, a&, c&
    With TextBox1
        If .Value = "" Then ListBox1.List = tbl: Exit Sub
        For i = 1 To UBound(tbl)
            If tbl(i, 10) Like .Value & "*" Then
                a = a + 1: ReDim Preserve t(1 To 10, 1 To a)
                For c = 1 To 10: t(c, a) = tbl(i, c): Next
            End If
        Next
        If a > 0 Then ListBox1.List = Application.Transpose(t) Else ListBox1.Clear
    End With
End Sub

Private Sub UserForm_Initialize()
    With Sheets("List")
        entetes.Column = Application.Transpose(.[A9].Resize(1, 10).Value)
        tbl = .Range("A10:J" & .Range("A" & Rows.Count).End(xlUp).Row).Value
        ListBox1.List = tbl
    End With
End Sub

resultat

les deux version en pièces jointes

 

[cp4]

Bonjour KTM
je t'ai donné une solution simple me semble t il la dernière fois , il suffit de travailler la reconstruction du tableau sur 10 colonnes
c'est à croire que finalement tu ne retiens rien 😉

quand on veux faire une listbox intuitive avec réduction de choix par un textbox on utilise pas ROWSOURCE
car elle n'est plus modifiable après

tu resize ton tableau avec le currentregion par le end(xlup) ce qui te donne A9:J29 alors que l'on s’arrête a 21

je vire tout donc y compris tes label d’entêtes j'ajoute une listbox2 pour me faire l’entêtes dans la quelle je mettrais la ligne 9
et dans la listbox1 je mettrais le reste a partir de la ligne 10

et pour finir il serait peut être temps d'apprendre a travailler avec des tableaux structurés ça simplifie la tache
bref

Option Explicit
Option Compare Text
Dim tbl
Private Sub TextBox1_Change()
    Dim t(), i&, a&, c&
    With TextBox1
        If .Value = "" Then ListBox1.List = tbl: Exit Sub
        For i = 1 To UBound(tbl)
            If tbl(i, 10) Like .Value & "*" Then
                a = a + 1: ReDim Preserve t(1 To 10, 1 To a)
                For c = 1 To 10: t(c, a) = tbl(i, c): Next
            End If
        Next
        If a > 0 Then ListBox1.List = Application.Transpose(t) Else ListBox1.Clear
    End With
End Sub

Private Sub UserForm_Initialize()
    With Sheets("List")
        entetes.Column = Application.Transpose(.[A9].Resize(1, 10).Value)
        tbl = .Range("A10:J" & .Range("A" & Rows.Count).End(xlUp).Row).Value
        ListBox1.List = tbl
    End With
End Sub

resultat

Regarde la pièce jointe 1125389

les deux version en pièces jointes

Bonjour @KTM , @patricktoulon ,

@patricktoulon : Il y a un truc qui ne va pas lorsqu'il y a qu'une seule ligne (transposition)

 

[patricktoulon]

Bonjour cp4 oui c'est vrai c'est une chose que j'ai négligé
tu me traque toi c'est pas possible 😂

 

[cp4]

Bonjour cp4 oui c'est vrai c'est une chose que j'ai négligé
tu me traque toi c'est pas possible 😂

Hé oui, qui aime bien châtie bien🤣🤣🤣🤣

 

[patricktoulon]

re
je vais te châtier moi tu va voir 😂😂😂
ok les fichiers ont été corrigés

 

[KTM]

re
je vais te châtier moi tu va voir 😂😂😂
ok les fichiers ont été corrigés

Vous avez oublié de joindre les fichiers corrigés!
Merci.

 

[patricktoulon]

re
non je ne les ai pas oubliés , les ai changé dans le post ou ils sont

 

[KTM]

re
non je ne les ai pas oubliés , les ai changé dans le post ou ils sont

Merci pour votre humble aide.

 

[patricktoulon]

Bonjour @ChTi160
a priori aucuns cas mais perso je préfère travailler avec un tableau dans le bon sens
car si il doit y avoir des modif dans le tableaux c'est plus compliqué le .column je ne l'utilise que pour le cas ou il n'y a qu'une ligne restante dans la recherche
c'est ma façon de travailler (me simplifier la tache pour les étapes suivantes)
mais pour un simple listing ta version simplifié fonctionne
le clear par contre est caduque car quand tu utilise . list ou .column tu remet la liste complete a jour
et tu oublie que si pas de correspondance T est vide donc erreur

 

[patricktoulon]

re
@ChTi160
pour bien comprendre ce que j'ai fait
il y a 4 options dans mes modèles

1. il y a des correspondances la liste se met a jour par .list
2. il n'y a qu'une seule correspondance la list se met a jour par .column
3. le textbox devient vide alors la liste complète
4. le textbox contient quelque chose mais pas de correspondances alors la liste reste vide

 

[patricktoulon]

re
@ChTi160
ton écriture simplifiée avec les 4 options

Private Sub TextBox1_Change()
    Dim t(), i&, a&, c&
    With TextBox1
        If .Value = "" Then ListBox1.List = tbl: Exit Sub
        For i = 1 To UBound(tbl)
            If tbl(i, 10) Like .Value & "*" Then
                a = a + 1: ReDim Preserve t(1 To 10, 1 To a)
                For c = 1 To 10: t(c, a) = tbl(i, c): Next
            End If
        Next
        If a > 0 Then
            ListBox1.Column = t
        Else
            ListBox1.Clear
        End If
    End With
End Sub

A + je pars en inter 😉

 

[ChTi160]

Re
je n'attendais qu'une réponse !
Aucune prétention !
Je le redis moi je n'utilise rien Lol
Sauf pour aider, avec mes petits moyens !
J'efface le Fichier et je passe à autre chose Lol
Jean marie

 

[KTM]

re
non je ne les ai pas oubliés , les ai changé dans le post ou ils sont

Je reviens à la charge avec une autre variante de mon problème.
J'ai résolu la recherche par BL.
Je voudrais savoir comment rechercher cette fois-ci par Destination et par BL ( Deux niveaux de recherche)
OU dois-je faire un nouveau ?
Merci