Recherche et remplissage automatique

[apt]

Bonjour à tous,

Dans un USF, je dois taper un nom pour d'éventuelle recherche dans la plage ("A2:A4").

Et à chaque lettre saisie dans TextBox1, une recherche est effectuée et la ListBox1 est remplie des résultats trouvés.

Mais j'ai besoin d'un coup de main.

Merci d'avance.

 

[Fred0o]

Re : Recherche et remplissage automatique

Bonsoir apt,

Voici déjà la première partie, pour remplir la ListBox en fonction du texte saisi dans la TextBox :

Private Sub TextBox1_Change()
    Dim i, n, Addr
    For i = ListBox1.ListCount To 1 Step -1
        ListBox1.RemoveItem ListBox1.ListCount - 1
    Next
    Set n = Range("A2:A100").Find(Me.TextBox1, , LookIn:=xlValues)
    Addr = n.Address
    If TextBox1 <> "" Then
        Do
            Me.ListBox1.AddItem n
            Set n = Range("A2:A100").FindNext(after:=n)
        Loop Until n Is Nothing Or n.Address = Addr
    End If
    Me.TextBox2.Text = Me.ListBox1.ListCount
End Sub

A+

 

[Fred0o]

Re : Recherche et remplissage automatique

Re-bonsoir,

Et voilà !

Dis moi si ceci correspond à ton besoin.

A+

 

[apt]

Re : Recherche et remplissage automatique

Bonsoir Fred0o,

Ca marche sauf que si la recherche n'aboutie pas, ça déclenche une erreur !

 

[Fred0o]

Re : Recherche et remplissage automatique

Re-bonsoir,

Voila le module corrigé :

Private Sub TextBox1_Change()
    Dim i, n, Addr
    For i = ListBox1.ListCount To 1 Step -1
        ListBox1.RemoveItem ListBox1.ListCount - 1
    Next
    Set n = Range("A2:A100").Find(Me.TextBox1, , LookIn:=xlValues)
    If Not n Is Nothing Then
        Addr = n.Address
        If TextBox1 <> "" Then
            Do
                Me.ListBox1.AddItem n
                Set n = Range("A2:A100").FindNext(after:=n)
            Loop Until n Is Nothing Or n.Address = Addr
        End If
    End If
    Me.TextBox2.Text = Me.ListBox1.ListCount
End Sub

A+

 

[apt]

Re : Recherche et remplissage automatique

Ca marche merci.

Mais comment peut-on traiter le double clique pour afficher les informations du nom & prénom choisi ?

Merci.

 

[Fred0o]

Re : Recherche et remplissage automatique

Bonjour,

Quel double click ? Une fois le nom sélectionné dans la ListBox, tu cliques sur "Afficher" et les informations s'affichent.

A+

 

[Fred0o]

Re : Recherche et remplissage automatique

Re-bonjour,

Avec ce fichier modifié, tu as le choix entre double-cliquer sur le nom ou cliquer sur le bouton afficher. Dans les 2 cas, la boite d'informations s'affichera.

A+

 

[apt]

Re : Recherche et remplissage automatique

Salut Fred0o,

J'aimerais ajouter le double click s'il est possible.

Merci.

 

[Fred0o]

Re : Recherche et remplissage automatique

Re-bonjour,

Tu dois pas bien lire les posts. Relis le post #8 et testes le avec le bouble click.

A+

 

[Fred0o]

Re : Recherche et remplissage automatique

Bonsoir apt,

Ma solution te convient-elle ???

A+

 

[apt]

Re : Recherche et remplissage automatique

Bonsoir Fred0o,

Ma connexion internet me fait défaut....

J'ai déjà posté une réponse depuis quelques heures ...

Bref, oui Fred0o ca marche très bien ta solution.

Je vais essayer de la tester sur une grande plage et j'espère qu'elle ne ralentira pas le processus.

S'il y aurais un problème, je reviendrais sur ce post.

Merci encore Fred0o.