Saisie + affichage AlphabétiqueRésolu

Question

Hello

Voici ce que jaimerai obtenir:
J'ai une ComboBox avec une liste dans un Fichier .txt qui s'affiche en cliquant sur la petite flèche à droite.

Mais comme on peut saisir directement dans la zone de saisie, j'aimerai qu'au fur et mesure qu'une lettre est entrée avoir une liste qui s'affiche avec la 1ère lettre choisie, les 2 première lettres saisie et ainsi de suite....
Afin d'aller au plus vite aux choix de la liste proposée.

Etc. etc.

Merci de votre aide

Bye

cs_Didier72 · Accepted Answer

Re correctif (me suis trompé pour les images)

Voici ce que jaimerai obtenir:
J'ai une ComboBox avec une liste dans un Fichier .txt qui s'affiche en cliquant sur la petite flèche à droite.

Mais comme on peut saisir directement dans la zone de saisie, j'aimerai qu'au fur et mesure qu'une lettre est entrée avoir une liste qui s'affiche avec la 1ère lettre choisie, les 2 première lettres saisie et ainsi de suite....
Afin d'aller au plus vite aux choix de la liste proposée.

Mais comme on peut saisir directement dans la zone de saisie, j'aimerai qu'au fur et mesure qu'une lettre est entrée avoir une liste qui s'affiche avec la 1ère lettre choisie, les 2 première lettres saisie et ainsi de suite....
Afin d'aller au plus vite aux choix de la liste proposée.

Etc. etc.

Merci de votre aide

Bye
/img

Etc. etc.

Merci de votre aide

Bye

cs_MPi · Answer

Quelque chose comme ça peut-être ?

Option Explicit
Private CodAsc As Integer

Private Sub ComboBox1_Change()
    Dim Var As String
    Dim I As Integer
    
    Var = ComboBox1
    
    If CodAsc <> 8 And Len(Var) > 0 Then
        For I = 0 To ComboBox1.ListCount - 1
            If UCase(Left(ComboBox1.List(I), Len(Var))) = UCase(Var) Then
                ComboBox1.Text = ComboBox1.List(I)
                ComboBox1.SelStart = Len(Var)
                ComboBox1.SelLength = Len(ComboBox1.List(I)) - Len(Var)
                Exit For
            End If
        Next
    End If

End Sub

MPi

Renfield · Answer

boucle et suppression des items ne convenant pas 

astuce du jour : parcoure ta liste d'Items a l'envers

For i = Combo1.ListCount -1 To 0 Step -1
   If ... Then
      Combo1.RemoveItem i
   End If
Next i

cs_Didier72 · Answer

Hello

Super, c'est tout à fait ce que je recherchais...

Vraiment sympa de votre Part...merci

Sinon comment ouvrir automatique la fenêtre liste combo quand on entre au moins un caractère  ?

Merci bien

@+

Renfield · Answer

Private Const CB_SHOWDROPDOWN As Long = &H14F

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

cs_Didier72 · Answer

re Renfield

Je vois pas le truc ???

Plus d'explications , merci :)
 @+

Renfield · Answer

http://msdn2.microsoft.com/en-us/library/ms673312.aspx

cs_Didier72 · Answer

re et merci pour l'info

Un peu complexe pour moi tout ça ...

Je vais tenter de piger

Renfield · Answer

pour afficher la liste :

SendMessage Combo1.hWnd, CB_SHOWDROPDOWN, 1, ByVal 0&

rien de plus...

cs_Didier72 · Answer

re

oki

Le principe pour afficher est bon, mais je n'arrive pas à l'intégrer dans le code de MPi (plus haut).
J'aimerai que dés que j'entre au minimum un caractère que la combo s'ouvre avec la méthode de MPi. C'est  à dire que le choix m"anène rapidement au choix le plus proche selon les caractères entrés...

@+

cs_Didier72 · Answer

re

Impec ...

ça marche super bien

Merci pour vos aides à tous

Bye

A Bientôt

Saisie + affichage Alphabétique

11 réponses

Votre réponse

Discussions similaires