Userform avec recherche intuitive par colonnes dans listbox

Bonsoir;

J'ai récupéré sur le net un USF qui pourrait convenir à ce que je désire faire.

Je l'ai déjà quelque peu modifié afin de pouvoir ajouter une valeur suite à une sélection faite sur la listbox.

Au dessus de cette listbox (6 colonnes) il y a aussi 6 textbox; et j'aurais voulu qu'elles me servent à rechercher de façon plus intuitive, car là elles ne font que filtrer à condition de saisir un nom de la colonne correspondante mais littéralement.

C'est surtout pour la colonne "Libellé" que ce type de recherche m'intéresse, par exemple pour un libellé du genre "Boite de sucrettes" çà me sorte le résultat dès que je saisis :

• Soit : "suc"
• Soit : "*ucr*"
• Soit : "*ttes"

Voir, que le résultat s'affine au fur et à mesure de la saisie.

Malheureusement je n'ai pas suffisamment de connaissances en VBA pour faire ceci, je vous joins donc le fichier, et vous remercie par avance pour votre aide.

Bonjour,

Remplace la fonction "Valide" par celle-ci et teste :

Function Valide(i) As Boolean
Valide = ((v(i, 0) Like TextBox1 & "*" Or TextBox1 = "") And _
(v(i, 1) Like TextBox2 & "*" Or TextBox2 = "") And _
(v(i, 2) Like TextBox3 & "*" Or TextBox3 = "") And _
(v(i, 3) Like TextBox4 & "*" Or TextBox4 = "") And _
(v(i, 4) Like TextBox5 & "*" Or TextBox5 = "") And _
(v(i, 5) Like TextBox6 & "*" Or TextBox6 = ""))
End Function

Re,

La casse a son importance, P est différent de p

Bonjour;

Encore merci, heureusement pour des gens de mon niveau qu'on trouve encore des gens dévoués sur les forums.

A+++