Discussion :

[taurus]

Bonjour, j'ia dans mon projet un combo box en propriete style =0 et je charge ce combo avec une base de donnée et je vx que ce soit modifiable pour la modification d'un rajout dans la table pas de probleme.
Mais par exemple je rentre une valeur qui est deja existante je voudrait que lorsque je tape le texte que si ca commence comme un deja present dans le combo box qu'il me l'affiche exemple:
RENNES : est dans ma liste combo
et si je tape RE je voudrais que rennes s'affiche mais si par exemple je tape apres le "e" une autre lettre que "n" ca n'affiche plus rennes mais ren si aucun texte dans mon combo ne correspond
merci

[Xo]

Il faut pour cela utiliser l'événement Change, déclenché par la saisie au clavier.
Tu récupères la chaîne saisie, et tu parcours les éléments de ton combobox pour positionner le ListIndex sur le premier qui correspond, et le laisser à -1 si aucun de correspond.

[taurus]

tu pourrais me donner un exemple de code stp
merci

[tavekapaclike1er]

salut
voila ce que j'ai fait pour mon prog:
j'ai une textbox ou je saisis les premières lettres d'un club et une listbox ou les noms de clubs "montent" en fonction de la saisie

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
Private Sub text_recherche_Change()
Dim i As Integer
Dim trouve As Boolean
i = 0
trouve = False
Do
If Left(list_nageurs.List(i), Len(text_recherche.Text)) = text_recherche.Text Then trouve = True
i = i + 1
Loop Until trouve = True Or i = list_nageurs.ListCount
If trouve Then
list_nageurs.ListIndex = i - 1
Else
list_nageurs.ListIndex = -1
End If
 
Dim a As Integer
a = list_nageurs.ListIndex
If list_nageurs.ListCount < a + 9 Then
list_nageurs.ListIndex = list_nageurs.ListCount
list_nageurs.ListIndex = a
Else
list_nageurs.ListIndex = a + 8
list_nageurs.ListIndex = a
End If
 
End Sub

à toi de l'adapter à ton combo

[taurus]

bonjour merci pour ton code par contre a quoi sert ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
Dim a As Integer 
a = list_nageurs.ListIndex 
If list_nageurs.ListCount < a + 9 Then 
    list_nageurs.ListIndex = list_nageurs.ListCount 
    list_nageurs.ListIndex = a 
Else 
    list_nageurs.ListIndex = a + 8 
    list_nageurs.ListIndex = a 
End If

car j'ai bien mon texte qui s'affiche mais je ne peux taper plusieurs lettre cad que si j'ai dans ma liste ddaf dde apres mon 1er d je ne peux pas taper autre chose et j'ai une erreur dans le code ci-dessus a la ligne
list_nageurs.ListIndex = list_nageurs.ListCount
" erreur d'execution '380'
valeur de propriete incorrecte

[Xo]

car j'ai bien mon texte qui s'affiche mais je ne peux taper plusieurs lettre cad que si j'ai dans ma liste ddaf dde apres mon 1er d je ne peux pas taper autre chose et j'ai une erreur dans le code ci-dessus a la ligne

Si la saisie se fait directement dans ta liste, et que la première lettre rentrée te positionne sur un élement de ta liste, alors oui, tu ne pourras pas saisir d'autres lettres de manière simple, vu que tu as impacté la zone de texte de ton combo.

Soit tu passes par une saisie dans une textbox à côté, soit ...
Je jette un oeil savoir comment contourner ce problème et je te tiens au courant.

PS : pense aux balises codes

[Xo]

Mouais, c'est compliqué à gérer dans la même zone, la saisie de la chaîne de recherche, et le positionnement, je m'emmêle les pinceaux

Bref, si tu veux faire simple, gère la saisie de ta chaîne de recherche dans un textbox à côté.

Si qqun d'autre a une solution à proposer, ça m'intéresse aussi

[taurus]

ok mais par contre a quoi sert le code que j'ai mis en dernier car sans ca ca marche donc je ne vois pas l'interet?

[Xo]

ok mais par contre a quoi sert le code que j'ai mis en dernier car sans ca ca marche donc je ne vois pas l'interet?

Je ne sais pas, mais il est certain que la ligne

Code :

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

list_nageurs.ListIndex = list_nageurs.ListCount

va tomber en erreur 380 à tous les coups, vu que la valeur max de ListIndex, c'est ListCount -1 !
Donc si ça tombe en erreur et que ça ne te sert pas, tu ne t'en sers pas ...

[ThierryAIM]

Avant de te proposer une solution, je veux juste savoir si ton combo est lié directement à la bdd (propriétés dataSource et dataField renseignées) ou non ?

[taurus]

NON elle n'est pas directement relie a la bdd

[ThierryAIM]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Combo1_Change()
    Dim i As Integer, start As Integer
    start = Len(Combo1.Text)
    For i = 0 To Combo1.ListCount - 1
        If Left(Combo1.List(i), start) = Combo1.Text Then
            Combo1.Text = Combo1.List(i)
        End If
    Next
    Combo1.SelStart = start
    Combo1.SelLength = Len(Combo1.Text)
End Sub

[Xo]

Pas mal mais ... j'ai constaté 2 soucis :

a- il faut tester la longueur de .Text, pour ne pas faire de tests sur une chaine de longueur 0, et gérer la comparaison sur min/MAJ : pas trop dur à gérer :

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
Private Sub Combo1_Change()
    Dim i As Integer, start As Integer
 
    start = Len(Combo1.Text)
 
    If start > 0 Then
        For i = 0 To Combo1.ListCount - 1
            If Ucase(Left(Combo1.List(i), start)) = Ucase(Combo1.Text) Then
                Combo1.Text = Combo1.List(i)
            End If
        Next
 
        Combo1.SelStart = start
        Combo1.SelLength = Len(Combo1.Text)
    End If
End Sub

b- ça désactive les touches BackSpace et Suppr, utiles si tu souhaites revenir en arrière dans ta saisie (c'est un peu ça qui m'a cassé les pieds ce matin ...)

[taurus]

j'attends de nouvelles propositions

[Xo]

j'attends de nouvelles propositions

Un peu "abrupt", comme relance !

Merci de penser que les personnes qui te propose de l'aide sur ce forum sont bénévoles, qu'elles font ça sur leur temps disponible, et qu'elles ne pas soumises à obligation de résultat.

Avec le code qui t'a été fourni, je trouve que tu as été pas déjà été pas mal aiguillé. Si tu ne t'en sors pas avec ça, revois ta manière de faire plutôt que d'exiger que l'on te fasse ton code à ta place !!!

[taurus]

ok merci @ +