Microsoft 365 Recherche intuitive

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle journée,

J'ai récupéré une recherche intuitive de notre Jacques Boigontier que je remercie au passage :)

J'ai modifié (incorrigible que je suis) pour adapter à mes besoins.
J'ai un souci que je n'ai pas réussi à résoudre.
Voir photo ci-dessous :
1619703387795.png

Si, par exemple, je recherche "lens", je voudrais qu'il m'affiche, au fur et à mesure de la frappe les communes qui commencent par les lettre saisies.
Or, il m'affiche toutes les communes qui "contiennent les lettres LENS".

Je ne sais pas faire pour modifier le code.
Pourriez-vous m'aider ?

Je joins le fichier,
Avec mes remerciements,
Amicalement,
lionel,
 

Pièces jointes

  • Saisie_intuitive_lio.xlsm
    696.2 KB · Affichages: 28
Solution
Bonsoir Usine à gaz, le forum

J'ai modifié la Sub ComboBox1_Change de ton Userform2 et mis des cases option pour laisser le choix du type de filtre. Les deux types de filtre sont interactifs et tu peux basculer de l'un à l'autre en cours de recherche.
J'ai modifié de la même façon Userform1 et Trouve (le nom n'est pas terrible pour un Userform, en général, on évite de mettre un nom de fonction, méthode ou propriété existant pour un Userform, c'est source de problèmes)

Bien cordialement, @+
VB:
Private Sub ComboBox1_Change()
    [a3] = ""
    If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, Choix1, 0)) Then
        If Me.ChoixFiltre1 Then
            Dim Val_Test, Filtre_Txt$
            For Each Val_Test In...

Discussions similaires

Statistiques des forums

Discussions
312 215
Messages
2 086 329
Membres
103 184
dernier inscrit
Di Martino