Microsoft 365 Recherche intuitive

[Usine à gaz]

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]

Bonjour Usine à gaz, le forum

Modifies la propriété Matchentry de la combobox1 du userform2 en
1 - fmMatchEntryComplete
cela devrait se comporter ensuite comme tu le désires.

Bien cordialement, @+

 

[Usine à gaz]

Bonsoir Yeahou,
Merci pour la réponse ça fonctionne très bien

J'ai une autre demande si c'est possible ?
Si je prends toujours comme exemple la commune de lens :
L'affichage est

Est-il possible d'avoir cet affichage


Déjà merci à toi
lionel,

 

[Bernard_XLD]

Bonsoir Usine à ,gaz

Pas moyen d'après moi sans écrire une routine spécifique pour filtrer la combobox
Si tu n'es pas trop pressé, je vais te coder quelque chose, là, ma patée est servie !

Bien cordialement, @+

 

[Usine à gaz]

Merci Yeahou, ce serait super et je posterais le fichier modifié pour que tout le monde en profite.
Merci à toi
lionel,

 

[Bernard_XLD]

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, @+

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 Choix1
                If UCase(Val_Test) Like UCase(ComboBox1.Value) & "*" Then
                    Filtre_Txt = IIf(Filtre_Txt = "", Val_Test, Filtre_Txt & "_" & Val_Test)
                End If
            Next Val_Test
            Me.ComboBox1.List = Split(Filtre_Txt, "_")
        Else
            Me.ComboBox1.List = Filter(Choix1, Me.ComboBox1.Text, True, vbTextCompare)
        End If
        Me.ComboBox1.DropDown
        Me.TextBox2 = ""
     Else
       Dim Position
       Position = Application.Match(Me.ComboBox1, Choix1, 0)
       Me.TextBox2 = rng.Cells(Position, 1)
       'f.Cells(Position, 1).Select
       [a1].Select
       ActiveWindow.ScrollRow = Selection.Row
     End If
End Sub

 

[Usine à gaz]

Bonsoir Yeahou, le forum,

Waooooo ! joli travail
Merci à toi c'est super !
Je testerai mieux demain car j'ai mon lit qui me dit ... viens ... viens...
Encore merci,
Bonne nuit à toutes et à tous,
lionel,

 

[Bernard_XLD]

je viens de recharger le fichier avec tous les userform modifiés.

Bonne nuit, @+

 

[Usine à gaz]

Bonjour Yeahou, le forum,
Bonne journée à toutes et à tous

je viens de mieux regarder et c'est super bien.
Merci d'avoir modifier les 3 UserForm

Il reste un petit souci que j'essaie de rectifier sur la recherche "rechercher - atteindre" :

Le code n'atteint pas la bonne cellule qui contient la commune sélectionnée.
Encore merci à toi
lionel,

 

[Usine à gaz]

Bon, j'ai trouvé :

Private Sub UserForm_Initialize()
  Set f = Sheets(1)
  Set rng = f.Range("A1:A" & f.[A65000].End(xlUp).Row)
  Choix1 = Application.Transpose(rng)
  Me.ComboBox1.List = Choix1
End Sub

avec "Set rng = f.Range("A1:A" & f.[A65000].End(xlUp).Row)", ça fonctionne nickel.

Ma 1ère ligne de recherche commence à la ligne 4. J'ai voulu modifier :
"Set rng = f.Range("A4:A" & f.[A65000].End(xlUp).Row)" et ça ne fonctionne plus.

@+,
lionel,

 

[Lolote83]

Salut Usine à Gaz, Yeahou,
Le fait d'avoir pris les données non pas de A1:A .... mais A4:A, il y a un décalage de 3
Donc pour que cela fonctionne, il faut aussi un décalage de 3 dans la recherche de position, donc
remplacer Me.TextBox2 = rng.Cells(Position, 1) par Me.TextBox2 = rng.Cells(Position, 1)+3
@+ Lolote83

 

[Usine à gaz]

Bonjour Lolotte83,
Merci pour ton message et ta solution,
lionel

 

[Usine à gaz]

Re-Bonjour Lolotte83, le Forum,

J'ai tenté "Me.TextBox2 = rng.Cells(Position, 1)+3" mais ça bug

 

[herve62]

Bonjour à tous
Je prends en route .....
J'ai un exemple qui était un annuaire , j'ai vidé la liste des N°
Il reste aussi le partage que j'avais mis pour les collègues car on était sur serveur
Sinon : il faut créer un NOM ( liste en A) , affecter la formule DECALER à ce nom
ensuite la sub est toute simple dans la Box, le NOM est repris en variable 'a'

 

[Usine à gaz]

Bjr herve62,
Merci pour ce fichier,
ça fonctionne aussi.

lionel