prob de sélection de donnée dans combobox ou datacombo

Version imprimable

09/09/2008, 18h32
oumarsaw

prob de sélection de donnée dans combobox ou datacombo

Bonjour a tous

j'ai combobox et datacombo que j'ai rempli des données triéée par ordre alphabétique.
je voudrais saisir des caractères dans combobox ou datacombo et que le pointeur se positionne sur une donnée dont les n premiers caratères saisie correspondent à ceux de la donnée dans le combo ou datacombo.

ex:
si je saisie "ale", la sélection se porte sur "alexandre" ou "alexis" qui sont les données commençant par "ale" dans le champ.
ainsi de suite.

Merci

Code:

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
Option Explicit
Private Sub Form_Load()
With Combo1
 .AddItem "Computer": .AddItem "Screen"
 .AddItem "Modem": .AddItem "Moderne"
 .AddItem "Modus": .AddItem "Printer"
 .AddItem "Scanner": .AddItem "Sound Blaster"
 .AddItem "Keyboard": .AddItem "CD-Rom"
 .AddItem "Mouse": .AddItem "Sourdingue"
End With
End Sub
 
Private Sub Text1_Change()
Combo1.ListIndex = Idx(Text1.Text)
End Sub
 
Public Function Idx(Quoi As String) As Integer
Idx = -1: Quoi = UCase(Quoi)
Dim T As Integer
For T = 0 To Combo1.ListCount - 1
 If InStr(UCase(Combo1.List(T)), Quoi) <> 0 Then
  If InStr(UCase(Combo1.List(T)), Quoi) = 1 Then 'trie que si les n premiers caratères saisie
   Idx = T
   Exit Function
  End If
 End If
Next T
End Function

10/09/2008, 11h46
oumarsaw

l'idée c'est un peu ça, mais je veux que la propriété change porte directement le combobox. il n'ya pas de textbox. la saisie s'éffectue sur le combo et non le text
merci
10/09/2008, 12h04
OhMonBato

Mets la propriété Style de ton combo à 2 (DropDownList) et la propiété Sorted à True.

Tu n'auras aucun code à écrire.