ListBox avec plusieurs filtres

Bonjour à tous,

Je souhaiterai appliquer un premier filtre dans la ListBox "LstB_Referentiel" par la ComboBox "CmbB_Recherche_Groupe"

le résultat de ce filtre noud afficherez un premier tri par groupe dans la ListBox

Les tris des se feraient en tapant la première lettre d'un mot de sa colonne affecté.

Et pour "CmbB_CodeClient" ? car il sert déjà à inscrire un code client dès que nous choisissons avec "CmbB_Groupe_Nom" pour ajouter un nouveau contact

Je joins le fichier anonymisé

En vous remerciant

Cordialement

Bonsoir ou bonjour Laurent

Très joli UserForm

Tu trouveras ci-joint ton fichier avec ma vision des choses pour le filtrage

La sub "Recherche_contact" ne sert plus à rien, car remplacer par ma sub

A+

Merci BrunoM45

BrunoM45 a écrit :

Bonsoir ou bonjour Laurent

Très joli UserForm

Tu trouveras ci-joint ton fichier avec ma vision des choses pour le filtrage

La sub "Recherche_contact" ne sert plus à rien, car remplacer par ma sub

A+

Après avoir sélectionné le filtre , une erreur visuel s'est glissée.

Cordialement

Re,

Normal si tu ne changes pas le code lors de la sélection de la ligne dans la ListeBox

j = Userform1.LstB_Referentiel.ListIndex + 2

Ca ne peut absolument plus fonctionner

Voici ton fichier modifier pour ce qui concerne la sélection dans la listbox

A+

Merci bruno

Tu va peux t'être pas rire mais je viens de télécharger le fichier et :

j = Userform1.LstB_Referentiel.ListIndex + 2

remplacé par

' Récupérer le numéro de ligne dans la feuille
    With Me.LstB_Referentiel
        j = .List(.ListIndex, NbCol)
    End With

Donc j'ai effacé toute la suite pour repartir de là

1er test toujours le même argument

C'est le chien qui se mord la queue

Je regarderai à tête reposé

Bon Apt

Cordialement

Salut

Effectivement, ce qui se produit à l'initialisation de l'USF, c'est la construction de la Listbox selon la plage A1:ANx = 40 colonnes

OR, lorsque l'on clique dessus, je cherche la valeur de la 41ème colonne qui n'existe pas encore

Ce qu'il faut faire, c'est construire un pseudo filtre à l'initialisation avec la sub FiltrerContacts()

Du coup, la 41ème colonne qui contient les numéros de ligne, existe bien

A+

Bonjour le forum, le fil, BrunoM45

J'ai téléchargé le fichier et j(ai toujours le même soucis après avoir appuyer sur "EFFACER"

dès que tu clique sur la litbox pour selectionner un nom Bing: Erreur Argument non valide

Le_Troll_Du_27 a écrit :

Ca ne peut absolument plus fonctionner Voici ton fichier modifier pour ce qui concerne la sélection dans la listbox

Je vais réécrire le code

Cordialement

Re,

Comme dans ta Listbox, il faut pouvoir enregistrer le numéro de ligne (pour le filtrage) celle-ci est enregistrée à la fin de ton tableau (indice 41)

Il te faut donc appeler la procédure FiltrerContacts() systématiquement lorsque tu dois reconstruire ta liste

Et effectivement, il faut revoir tout ton code qui parle de la ListBox

A+