Discussion :

[Swed_Chief]

Bonjour,

Après avoir effectué de nombreuses recherches depuis un certains temps, mes efforts sont restés sans résultat.

Mon problème : j'ai une table contenant la liste des Fournisseurs et elle alimente une liste déroulante.
Pour l'instant, je suis obligé de taper c, puis h, puis e etc pour avoir "Chez Jules".

Je voudrais pouvoir taper "Jules" directement, par exemple.

Je serais très reconnaissant auprès de quiconque qui pourrait m'aider à orienter mes recherches.
Merci d'avance.

Swed_Chief

[loufab]

Bonjour,

Malheureusement ce n'est pas possible nativement avec une liste déroulante. L'autocomplétion fonctionne de cette manière.

Il faut imaginer autre chose pour contourner le problème.

Cordialement,

[loufab]

Tu peux utiliser l'évènement KeyUp :

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
21
22
23
24
25
26
27
28
29
 
Option Compare Database
Option Explicit
Dim strList As String   'stocke les keycode
 
Private Sub Modifiable1_GotFocus()
     strList = ""  'perte du focus on vide la liste de touche
End Sub
 
Private Sub Modifiable1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Long
 
If KeyCode = 27 Then strList = ""  'echap vide le contenu
If Not (KeyCode > 64 And KeyCode < 123) Then Exit Sub  'ce n'est pas un caractère A-Z a-z à affiner
 
strList = strList & Chr(KeyCode)  'ajoute la touche pressée
 
For i = 0 To Me.Modifiable1.ListCount - 1  'parcours les items
    If Me.Modifiable1.Column(1, i) Like "*" & strList & "*" Then  'l'item correspond
       Me.Modifiable1.ListIndex = i  'on s'y positionne
       Exit For  'et on sort
    End If
Next
 
End Sub
 
Private Sub Modifiable1_LostFocus()
     strList = ""   'perte du focus on vide les keycode
End Sub

Cordialement,

[marot_r]

Bonjour Swed_Chief.

Loufab.

Une autre solution consiste à ajouter les mots à la liste qui alimente ta liste déroulante.

Je l'ai fait pour une liste de nom où je voulais pouvoir trouver la personnes par son nom de famille ou par son prénom.
J'avais un truc du genre

Code sql :

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

1
2
3
select [tblPersonne].[Clef], [tblPersonne].[Nom] as Col1, [tblPersonne].[Prenom] as Col2 from [tblPersonne]
union select [tblPersonne].[Clef], [tblPersonne].[Prenom] as Col1, [tblPersonne].[Nom] as Col2 from [tblPersonne]
order by [col1],[Col2]

Avec des morceaux de nom c'est un peu moins évident mais ou pourrait imaginer une table

tblIndexMotClient
ClefIndexMot
Mot
ClefClient

avec un index unique composé sur Mot et ClefClient.

Cette table serai alimentée au moment où tu crée ou modifie ta fiche client.

C'est moins élégant que la solution de Loufab.

A+