Discussion :

[jiala]

Bonjour, je voudrais créer une zone de texte qui permettrait de faire
des recherches dans une liste. Je voudrais qu'à chaque lettre tapé
dans cette zone de texte, la liste se positionne au fur et à mesure sur les noms correspondants.
Pour résumé, une espèce de "filtrage dynamique" qui marcherait comme une
liste déroulante mais avec une zone de saisie déportée.

[DMboup]

Bonjour

Voici un début. Soit un formulaire avec deux zone de texte Zt1 et Zt2
Chaque caratére entrée dans Zt1 est copié dans Zt2.
Caratére valide ici a, c et le 6 du pavé numérique.

Pour avoir tous les autres caractéres il faudra compléter le Select Case.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ZT1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case KeyCodeConstants.vbKeyA
            Me.ZT2 = Me.ZT2 & Chr(vbKeyA)
 
        Case KeyCodeConstants.vbKeyC
            Me.ZT2 = Me.ZT2 & Chr(vbKeyC)
 
        Case KeyCodeConstants.vbKeyNumpad6
            Me.ZT2 = Me.ZT2 & 6
    End Select
    TaZoneDeListe.Requery 'Actualisation de la liste
End Sub

A chercher : S'il est possible de retrouver la touche appuyer à l'aide de son code (KeyCode) alors il ne sera plus nécessaire d'utiliser le Select Case et il n y aurait que deux lignes.

[jiala]

Ok, merci pour ta réponse, un bon début de piste. Même si le select case pour chaque lettre me parait un peu long. Je vais essayer de retrouver la touche appuyé.

[jiala]

A priori, pluis simplement, sur l'événement "changement", je peux intervenir à chaque touche appuyé dans la zone. Ceci devrait faire mon bonheur. Plus d'infos quand j'aurais fini. Merci en tout cas.

[jiala]

Voilà j'ai réglé le problème sur l'événement "sur changement" et ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Texte0_Change()
Dim SQl As String
 
    Me.Requery
    Me.ChoixUsager.RowSource = SQl
 
    If IsNull(Len(Texte0)) Then
        SQl = "select TblPassants.NumUsager, TblPassants.NomUsager, TblPassants.PrenomUsager, TblPassants.CodeRegime, TblPassants.Classe FROM TblPassants ORDER BY TblPassants.NomUsager"
    Else
        Me.Requery
        'Le sql construit par les lettre entrées
        SQl = "select TblPassants.NumUsager, TblPassants.NomUsager, TblPassants.PrenomUsager, TblPassants.CodeRegime, TblPassants.Classe FROM TblPassants"
        SQl = SQl & " where tblpassants.NomUsager Like '" & Me.Texte0 & "*' "
        slq = SQl & "ORDER BY TblPassants.NomUsager ;"
        Me.ChoixUsager.RowSource = SQl
        Me.ChoixUsager.Requery
        Texte0.SelStart = Len(Texte0) 'positionne le curseur à la suite de la dernière lettre entrée
    End If
 
End Sub

[DMboup]

Bien joué.