Microsoft 365 Recherche intuitive

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 29 Avril 2021

• #2

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Avril 2021

• #3

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,

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 29 Avril 2021

• #4

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

 

Dernière édition: 30 Avril 2021

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 29 Avril 2021

• #5

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Avril 2021

• #6

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

 

Pièces jointes

• Saisie_intuitive_lio.xlsm

  699.4 KB · Affichages: 16

Dernière édition: 30 Avril 2021

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #7

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,

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Avril 2021

• #8

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

Bonne nuit, @+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #9

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #10

Bon, j'ai trouvé :

VB:

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,

 

Dernière édition: 30 Avril 2021

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 30 Avril 2021

• #11

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #12

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #13

Re-Bonjour Lolotte83, le Forum,

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 30 Avril 2021

• #14

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'

 

Pièces jointes

• annuaire_mairie_vide.xlsm

  33.8 KB · Affichages: 15

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 30 Avril 2021

• #15

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

lionel

 

Vote positif 0 Vote négatif