Recherche intuitive dans un userform

Bonsoir à tous,

Je suis nouveau sur le forum et ai une connaissance très limitée de VBA.

En raison des demandes récurrentes qui me sont faites dans le cadre de mon travail, j'ai entrepris de créer un USF de recherche à partir d'une chaîne de caractères de mot dans le Textbox, les résultats sont affichés dans une Litsbox. Ces résultats sont affinés au fur et à mesure du nombre de caractères de la chaîne saisis dans le Textbox.

J'ai essayé d'adapter, sans succès, un code trouvé sur un forum.

A la première lettre de la chaîne de caractère, pas de problème. Mais à partir de la 2ème lettre de la chaîne qui devrait permettre d'affiner le résultat obtenu dans le Listbox, j'ai alors un msg d'erreur :

"Erreur d'exécution 13 : Incompatibilité de type". Le code ci-dessous semble être incorrect.

If aa(i, a) Like "*" & TextBox1 & "*" Then aa(i, 39) = "oui": y = y + 1: Exit For

Et probablement des codes suivants.

Je vous joins mon fichier

Merci infiniment de bien vouloir m'aider.

Très cordialement

bonsoir,

le problème vient du #N/A en ligne 38 colonne 12.

tu peux intercepter cette erreur en modifiant ton code comme suit

on error resume next
If aa(i, a) Like "*" & TextBox1 & "*" Then aa(i, 39) = "oui": y = y + 1: Exit For
on error goto 0

Merci infiniment à h2so4, Merci à tous pour votre support quotidien aux nouveaux apprenants que nous sommes.

La modification fonctionne impeccablement.