Discussion :

[s.rais]

Comment faire pour q'un combobox suggère des entrées (d'après sa liste)au fur et à mesure de la saisie

[khany]

Peux-tu donner un exemple et être plus clair stp ?
Merci !

[Catbull]

Tu peux utiliser un menu popup peut-être puis gérer l'évènement Tab...

[s.rais]

il s'agit d'utiliser un combobox dont la liste se forme à partir d'une table lors du chargement d'un formulaire. Lorsque l'utilisateur commence à saisir des données (qui ne peuvent être que des éléments de la liste), le combobox suggére des entrées comme dans la saisie semi-automatique dans excel ou dans les saisies dans les combobox d'access. merci

[Mayamok]

Heu, j'ai pondu ça dans une fenêtre avec juste un combobox appelé Combo1. Bien sûr, il va falloir tester en long et en large et customiser, mais cela peut être une base, juste pour essayer...

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
30
31
32
33
34
35
36
37
38
39
40
 
Option Explicit
 
Private mblnOk As Boolean
 
Private Sub Combo1_Change()
 
Dim intCpt As Integer
Dim intLenght As Integer
 
If mblnOk Then
 
    For intCpt = 0 To Combo1.ListCount - 1 Step 1
        If InStr(1, Combo1.List(intCpt), Combo1.Text) Then
            intLenght = Len(Combo1.Text)
            Combo1.Text = Combo1.List(intCpt)
            Combo1.SelStart = intLenght
            Combo1.SelLength = Len(Combo1.Text) - intLenght
        End If
    Next
 
End If
 
End Sub
 
Private Sub combo1_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = vbKeyDelete Or KeyCode = vbKeyBack Then
    mblnOk = False
Else
    mblnOk = True
End If
 
End Sub
 
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "toutamon"
Combo1.AddItem "pachmala"
End Sub

[s.rais]

Merci ! Mayamok
ça marche !