améliorer appli [reprise de fin]

[herve62]

Bonjour
Avec un peu de mal j'ai pu obtenir ce résultat de recherche "intuitive"
mais reste un petit hic , il me semble que dans cet exemple , en tapant BO la liste ne devrait être
qu'avec 2 items et pas 3 > le "Blanquart" n'a rien à faire dans la liste
Une idée ?

 

[pierrejean]

Bonjour herve62
Vois si cela va mieux

 

[sousou]

bonjour
Regarde si cela te convient comme ceci, je retire les * entre chaque caractères et avant le mot

Private Sub textBox1_Change()

Set d1 = CreateObject("Scripting.Dictionary")
X = Replace(Replace(TextBox1, ".", ""), " ", "")
tmp = "*"
' For i = 1 To Len(X): tmp = tmp & Mid(X, i, 1) & "*": Next i
tmp = X & "*"
tmp = UCase(tmp)
For Each c In a
tmp2 = Replace(Replace(c, ".", ""), " ", "") & "*"
If UCase(tmp2) Like tmp Then d1(c) = ""
Next c
Me.ListBox1.List = d1.keys
End Sub
Pas vue pierre jean

 

[herve62]

Bon , bin merci !! vite réglé
les 2 fonctionnent

 

[herve62]

Bonjour
J'ai repris le fichier pour le mettre en service, par contre je viens de me rendre compte que le choix de listbox ne se met pas entier dans Textbox1 . J'ai donc fait une modif dans Listbox pour mettre sa valeur ....Mais cela procure une erreur dans textbox1 change au niveau de D1.keys : permission refusée ??? lorsque je clique ensuite sur AUTRE ? comment y remédier ?
Merci

 

[pierrejean]

Bonjour herve
Vois si cela va mieux

 

[herve62]

Bonjour
merci bien Pierre Jean !
Comme c'est toi qui avait contribué ... c'est mieux comme ça , c'est ok !
Par contre je cherche a effacer Listbox en cliquant sur AUTRE mais .clear ou .value="" ne fonctionnent pas

 

[pierrejean]

Re
Cela n'a pas été évident mais...
vois si cela te convient

 

[herve62]

bonsoir
Mis à part le bug au 1er lancement à cause de worksheets("start").select .. ??? qui ne se reproduit plus ensuite , mystère !!
L'appli fonctionne comme je voulais au début , Pierre Jean je te remercie bien
J'ai remarqué ta modif et oui pas évident de trouver cette solution !!

 

[pierrejean]

Re

Version qui ne devrait plus poser de problème
A tester

 

[herve62]

Je ne vois pas la différence car là encore mystère de je sais pas quoi ???? , les 1er lancements donnent
-Affichage excel avec demande d'activer les notifications
-A nouveau plantage sur Start select
Puis Sans rien modifier , le fichier est toujours dans le rep. "telechargement" et fonctionne normalement
après 3, 4 exécutions ?
Mais sauf que moi au bureau je ne vois aucunement , mis à part son démarrage, Excel s'ouvrir , j'ai direct mon USF et chez moi c'est pas le cas ( 2010 et au bureau 2016 , serait ce ça ??)
Merci encore pour ton implication comme dab..!