améliorer appli [reprise de fin]

herve62

XLDnaute Barbatruc
Supporter XLD
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 ?
 

Pièces jointes

  • intuitive_type2.xlsm
    23.6 KB · Affichages: 34

sousou

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • annuaire_mairie.xlsm
    30.8 KB · Affichages: 28

herve62

XLDnaute Barbatruc
Supporter XLD
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 !!
 

herve62

XLDnaute Barbatruc
Supporter XLD
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..!
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 799
Membres
101 818
dernier inscrit
tiftouf5757