Microsoft 365 Recherche intuitive

Usine à gaz · 29 Avril 2021

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 :

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,

Bernard_XLD · 30 Avril 2021

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...

herve62 · 30 Avril 2021

oK , sinon tu peux même le mettre en raccourci Bureau avec l'icône de ton choix , voir le code pour le chemin de ton image
A toi d'adapter , bonne continuation

Usine à gaz · 30 Avril 2021

Merci herve62
J'avais vu pour le raccourci.
Je vais adapter pour voir ce que ça donne.
lionel

Microsoft 365 Recherche intuitive

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Bernard_XLD

herve62

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires