Combobox sélection réduite VBA

Bonjour, j'ai une combobox avec une recherche qui se réduit en fonction de ce que je saisie dedans voir exemple joint ...

Mon soucis c'est que je voudrais avoir la ligne du haut surligné en bleu sans avoir à utiliser la souris pour le faire lorsque un mot commence pareil.

Dans mon exemple si je commence à taper PO je voudrais que Power Mercader soit surligné en bleu pour pouvoir faire entrée et saisir ma sélection...

Merci d'avance ...

Bonjour,

ComboBox intuitif.

Dim a()
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  a = Application.Transpose(f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value)
  Me.Combobox1.List = a
End Sub

Private Sub ComboBox1_Change()
 If Me.Combobox1.ListIndex = -1 Then
   Me.Combobox1.List = Filter(a, Me.Combobox1.Text, True, vbTextCompare)
   Me.Combobox1.DropDown
  End If
End Sub

Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.Combobox1
End Sub

Boisgontier

Merci de ta réponse mais ta solution ne surligne pas en bleu Power mercader si je tapes PO ?

Le truc c'est de pouvoir faire entrée après avoir tapez PO et que ça saisisse Power mercader ...

Là, il prend le premier si on appuie sur Entrée.

Dim a()
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  a = Application.Transpose(f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value)
  Me.Combobox1.List = a
End Sub

Private Sub ComboBox1_Change()
 If Me.Combobox1.ListIndex = -1 Then
   Me.Combobox1.List = Filter(a, Me.Combobox1.Text, True, vbTextCompare)
   Me.Combobox1.DropDown
  End If
End Sub
Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.Combobox1
End Sub

Private Sub Combobox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then Me.TextBox1 = Me.Combobox1.List(0)
End Sub

Boisgontier

Bonsoir, ça fonctionne impeccable !

Merci.

Bonjour, en fait sur ton exemple ça fonctionne pas je me suis emballé ... quand je tapes po dans la combobox ça change pas par le premier dans la combobox, et dans mon application j'ai pas de textbox donc j'ai réadapté le code mais le soucis, c'est que je descend avec les flèches pour allez prendre le 3 eme de la listes, ça me remet le premier...

Merci.

J'avais oublié mon fichier modifié ...

32combobox.xlsm (19.96 Ko)
Rechercher des sujets similaires à "combobox selection reduite vba"