Utilisation de la touche entrée dans un comboBox

Question

Salut ! 
Je cherche coment faire pour que la touche Entr&#233;e valide la s&#233;lection trouv&#233;e en tapant quelque lettres sans utiliser la fleche pour obtenir le menu d&#233;roulant ou l'on clique habituellement ! 

mon code pour l'instant &#224; cette t&#234;te l&#224; ! 

Code:,
----

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C

Private Type aide
qst As String
End Type
Dim Taide(1 To 20) As aide

Dim Trouve As Long
Dim Position As Integer
Dim Taille As Integer
Dim strTemp As String
Dim i, z, p

'-----------------------------------------------------------------------------------

Private Sub Form_Load()
' ajout de donn&#233;e dans le combo
Combo1.AddItem "Afficher une personne r&#233;pertori&#233;e"
Combo1.AddItem "Ajouter une nouvelle personne"
Combo1.AddItem "Modifier une personne"
Combo1.AddItem "Supprimer une personne"
Taide(1).qst = "Toto"
Taide(2).qst = "momo"
Taide(3).qst = "gfndvf"
Taide(4).qst = "dgbgb"
p = 4
End Sub

'----------------------------------------------------------------------------------

Private Sub Combo1_Click()
For i = 0 To p
z = (i + 1)
If (Combo1.ListIndex = i) Then
Label1.Caption = Taide(z).qst
End If
Next i
End Sub

'-------------------------------------------------------------------------------

'Tout le reste du code se situe dans la proc&#233;dure de l'&#233;v&#233;nement KeyPress, qui a lieu chaque fois qu'un caract&#232;re est entr&#233; :
Private Sub Combo1_KeyPress(KeyAscii As Integer)

With Me.Combo1
If KeyAscii = 8 Then
If .SelStart = 0 Then Exit Sub
.SelStart = .SelStart - 1
.SelText = ""
Else
Position = .SelStart
strTemp = .Text
End If
.SelText = Chr(KeyAscii)
Trouve = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)
If Trouve = -1 Then
'les trois lignes suivantes doivent &#234;tre enlev&#233;es en cas de non correspondance possible
.Text = strTemp
.SelStart = Position
.SelLength = (Len(.Text) - Position)
KeyAscii = 0
Exit Sub
Else
Position = .SelStart
Taille = Len(.List(Trouve)) - Len(.Text)
.SelText = .SelText & Right(.List(Trouve), Taille)
.SelStart = Position
.SelLength = Taille
KeyAscii = 0
End If
End With

End Sub
'

Voil&#224;, si quelqun pouvait me d&#233;bloquer se serait g&#233;nial !

Scalpweb · Answer

Bon alors j'ai pas vraiment lu ton code (j'ai la flemme lol) mais voil&#224; ce que moi je ferais :

Private Sub Combo1_KeyPress(KeyAscii As Integer) 

   dim s as string
   dim i as integer
   i = 0
   sel = vbnullstring

   sel = combo1.text

   ' Ensuite, on parcours tout les &#233;l&#233;ments :
   for i = 0 to combo1.count -1
      if left(combo1.list(i), len(sel)) = sel then

         ' On a donc une correspondance, il suffit de s&#233;l&#233;ctionner le ligne :
         combo1.listindex = i

         ' On quitte la boucle :
         exit sub

      end if
   next

End Sub

En &#233;sp&#233;rant qu'il n' y est pas de bugs...

Bonne prog, @+, Scalpweb

cs_ITALIA · Answer

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
     
'Saisie semie-automatique
     If KeyCode =  vbKeyBack  Then  Exit 
Sub
     Dim inc1 As 
Integer
     Wcount  = Len(Combo1.Text)
     If Combo1.Text =  ""  Then  Exit 
Sub
     For inc1  = 0 To Combo1.ListCount - 1
        If LCase(Combo1.Text) =   LCase (Left(Combo1.List(inc1), Wcount)) 
Then
         Combo1.Text  = Combo1.Text & Mid(Combo1.List(inc1), Combo1.SelStart + 1)
         Combo1.SelStart = Wcount
         Combo1.SelLength = Len(Combo1.Text)
         Exit 
For
        End 
If
     Next inc1
End Sub 

It@li@

cs_CanisLupus · Answer

Salut, je ne sais pas si j'ai bien compris ta question. Si c'est pour se positionner automatiquement sur un item d'une combobox ou d'une listbox, j'ai post&#233; une r&#233;ponse derni&#232;rement dans le forum :

http://www.vbfrance.com/forum.v2.aspx?ID=394039

L'exemple est pour une listbox mais tu peux facilement l'adapter pour une combo.

Pour la gestion de la touche entr&#233;e, dans le keypress c'est
If KeyAscii =13 then ....
dans le keyup c'estif keycode vbreturn or keycode vbkeyseparator then ...

Loup Gris

NykoKurapika · Answer

D&#233;soler j'ai essayer toute vos proposition mais elle ne marche pas ! o&#249; tout simplement comme je d&#233;bute encore un peut avec VB, JE n'est pas r&#233;ussit &#224; les faires march&#233;es !

Je me demandais si avec ce code ca pourrait marcher mais je ne sais pas comment faire pour que la touche Entr&#233;e affiche dan le label le contenue de la variable correspondant &#224; ligne subissant l'action de validation (Entr&#233;e !) 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn The
End If
End Sub

Merci d&#233;j&#224; pour votre aide !
En esp&#233;rant que vous continurrez &#224; m'aider !!

Nico

cs_CanisLupus · Answer

If KeyCode = vbKeyReturn Then
      TonLabel.caption = tacombo.text 'ou tacombo.list(tacombo.listindex)
   End If

Loup Gris

cqui789 · Answer

J'ai comme l'impression que tu te complique la vie, les 3 lignes
suivantes peuvent remplacer les 8 que tu as ecrit, j'ai pas encore lu
la suite mais apparement c'est le meme probleme:



Private Sub Combo1_Click()

      Label1.Caption = Taide(Combo1.ListIndex + 1).qst

   

End Sub

NykoKurapika · Answer

Oui c'est tout aussi simple !! Merci pour le tuyau ! (moi qui ais pass&#233; une demie heure l&#224; dessus ! Alala !)

Nico !

Sinon je planche encore sur le ce fichut Entr&#233;e !

NykoKurapika · Answer

C'est bon j'ai enfin trouver !!!

C'est Gr&#226;ce &#224; toute vos Informations et celles de Gobillot que j'y sui arriv&#233; !

Merci &#224; tous !

Voici les diff&#233;rent codes !


L'une ou l'autre son bonne ! &#224; vous de choisir !
Il faut metre Trouve = -1 dans FormLaud !

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label1.Caption = Taide(Trouve + 1).qst
End If
End Sub

--------------------------------------------------------------------------------------------------------

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If Trouve > -1 Then
Label1.Caption = Taide(Trouve + 1).qst
End If
End If
End Sub

Voil&#224; !! Encore Merci &#224; tous !

Scalpweb · Answer

Ah ben &#231;a y'est, j'ais enfin compris ce que tu veux ('fin je crois)... Bon, alors voil&#224; ce que moi je ferais :

Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
     'Si Touche Delete, on quitte :

     If KeyCode =  vbKeyBack  Then  Exit 
Sub

     Dim nbW as Integer

     Dim i As Integer

     nbW  = Len(Combo1.Text)

    'Si vide, on quitte :
     If Combo1.Text =  ""  Then  Exit 
Sub

    'Si on appuye sur la touche entr&#233;e :
     If  keycode  = vbKeyReturn then

     For i =  0  To  Combo1.ListCount - 1

        If  UCase(Combo1.Text)  = UCase(Left(Combo1.List(i), nbW)) Then

         Combo1.Text =  Combo1.Text  &  Mid(Combo1.List(i), Combo1.SelStart + 1)
         Combo1.SelStart  = nbW
         Combo1.SelLength = Len(Combo1.Text)
         Exit 
For

        End 
If

     Next i

     End If

End Sub 

Voil&#224;, donc j'ai repris un peu du code d'ITALIA, et un peu du miens, et voil&#224; ce que &#231;a donne...

Bonne prog, @+, Scalpweb

Scalpweb · Answer

Oul&#224;, bon ben j'avais peut-&#234;tre rien compris alors en fait... Tant mieux pour toi si tu as trouv&#233;.

Scalpweb

cs_ITALIA · Answer

Moi non plus !!!

It@li@

Utilisation de la touche entrée dans un comboBox

11 réponses

Discussions similaires