Discussion :

[Papibrow]

Bonjour à tous.

Afin d'augmenter la rapidité de saisie d'un champ d'une Combobox assez remplie j'avais dans l'idée de la vider en fonction des caractères saisis

J'ai beaucoup cherché mais pas vraiment trouvé. J'ai sans doute multiplier les variables un peu inutilement. C'était pour me clarifier la chose.
Donc en théorie je dois :

Lors de l'appui sur touche, la macro prend les caractères inscrits et les compare à ceux présents (au début et la même longueur de la chaine ) dans la liste du combobox. Si les caractères sont différents l'entrée est supprimée. On continue jusqu'à la fin.

Je pense avoir fait une erreur dans ma boucle de parcours de la liste mais peut être aussi dans les comparaison de caractères.

Je vois une autre faille si il y a un effacement d'un caractère et je ne sais pas trop comment le gérer.

La liste est générée ailleurs.

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
 
Sub NomBox_Change()
Dim lettre As Characters
Dim l As String
Dim Nom As String
Dim limite As Integer
Dim lenght As Integer
Dim i As Integer
Dim tampon
limite = NomBox.ListCount
Nom = CStr(NomBox)
lenght = Len(Nom)
 
 
For i = 1 To lenght
  l = Left(Nom, i)
    limite = NomBox.ListCount
    For j = 0 To limite - 1
        tampon = Left(NomBox.List(j), i)
        If l <> tampon Then NomBox.RemoveItem (j)
        limite = NomBox.ListCount
    Next j
 
Next
 
End Sub

Dans ma tête ca marche et je tourne un peu en rond sans trouver une solution.

Le petit débutant en VBA que je suis vous remercie.

[clementmarcotte]

Bonjour,

Commence par ouvrir ton aide de VBA et recherche Combobox.removeitem et tires-en tes conclusions

Ensuite:

http://www.developpez.net/forums/d94...lons-combobox/

http://www.developpez.net/forums/d67...items-listbox/

https://cse.google.fr/cse?cx=partner...ver&gsc.page=2

[Papibrow]

Merci de ta réponse nocturne. Je vais potasser ce que tu me fournies. Si j'y arrive je posterais la solution.

[antonysansh]

Bonjour Papibrow,

Je ne suis pas certain de comprendre ce que tu veux faire, C'est une saisie semi-automatique que tu veux faire ?

Si c'est le cas, la propriété MatchEntry à 1 (valeur par défaut de mémoire) permet justement cela.
A chaque caractère saisi dans la ComboBox, la première valeur (ordre alphabétique) pouvant matcher avec la saisi sera affiché dans la ComboBox.

[Papibrow]

Alors, clementmarcotte merci j'ai trouvé ma solution sur les liens donnés. Je tacherais de mieux chercher. Je parcours ma boucle for de bas en haut pour Eviter les problèmes d'index.

A antonysansh. Pour la propriété match entry je trouve ca peu pratique. Quand je tape une lettre il sélectionnait directement le mot devais effacer pour continuer d'écrire.

Je poste ici la boucle utilisée et corrigée.

Code :

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

1
2
For j = limite - 1 To 0 Step -1
        tampon = Left(NomBox.List(j), i)

Pour la gestion de la touche backspace ou suppr qui en cas d'erreur de frappe vont débouchée sur une liste vide j'ai pas vraiment trouvé quelque chose de propre. Elle sont interdites mais on peut réinitialiser le formulaire pour reprendre la liste à nouveau.

[antonysansh]

A antonysansh. Pour la propriété match entry je trouve ca peu pratique. Quand je tape une lettre il sélectionnait directement le mot devais effacer pour continuer d'écrire.

Le texte est complété ET sélectionné mais le curseur ne change pas de position alors tu peux très bien continuer la saisie ou même supprimer des caractères.

[Papibrow]

Je regarde ça plus en détail alors. Merci