Liste intuitive triée 3 colonnes auto ajustable

modus57

XLDnaute Occasionnel
Bonjour,

Après avoir créé une discussion sur ce forum qui a été résolue, je reviens vers vous pour un petit problème que je n’arrive pas à résoudre.
Sur le fichier ci-joint tout fonctionne lorsque les premières lettres sont saisies dans le TexteBox, la Listbox affiche tous les noms triés commençant par cette lettre.
Par contre si le symbole * est tapé dans le TexteBox, la Listbox affiche tous les noms non triés ?
Comment corriger ce problème.

Merci d’avance pour votre réponse.

Nota : choix d'une ListBox car elle permet la multi sélection
 

Pièces jointes

  • Liste Intuitive triée 3 col auto ajustable.xlsm
    54.3 KB · Affichages: 31
Dernière édition:

gilbert_RGI

XLDnaute Barbatruc
Re : Liste intuitive triée 3 colonnes auto ajustable

une solution

dans textbox1_change

VB:
            ReDim Preserve a(1 To 3, 1 To n)
            a(1, n) = c.Offset(, -5).Value
            a(2, n) = c.Offset(, -8).Value
             a(3, n) = c.Value
'            a(1, n) = c.Offset(, -8).Value
'            a(2, n) = c.Offset(, -5).Value
'            a(3, n) = c.Value
        End If
 

modus57

XLDnaute Occasionnel
Re : Liste intuitive triée 3 colonnes auto ajustable

Ça fonctionne, mais l'ordre des colonnes est inversée (Nom, N° dossier, Adresse mail).
Je préfère trier sur la colonne 2 dans l'ordre chronologique des colonnes (N° dossier, Nom, Adresse mail), si cela n'est pas possible je me contenterai de cette solution.
 

Statistiques des forums

Discussions
312 310
Messages
2 087 122
Membres
103 479
dernier inscrit
Compta